Как быстро удалить дубликаты с RichEdit1? Таким способом удаляет очень медленно:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i := 0;
while i < RichEdit1.Lines.Count do
begin
if RichEdit1.Lines.IndexOf(RichEdit1.Lines[i]) < i then
RichEdit1.Lines.Delete(i)
else
inc(i);
end;
end;