Поиск в мемо-2

[KVANTOM]

Здраствуйте !
Вот, немогу решить задачку ....
В мемо , надо удалить дублирующие строки, но один екзымпляр оставить !
Я пробовал так
for i:=0 to memo1.lines.count-1 do
begin
for a:=1 to memo1.lines.count-1 do
begin
if memo1.lines[i]=memo1.lines[a] then
memo1.lines.delete(a);
end;
end;

[Serge_Bliznykov]

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
 i := 0;
 while i < Memo1.Lines.Count do
 begin
   if Memo1.Lines.IndexOf(Memo1.Lines[i]) < i then
     Memo1.Lines.Delete(i)
   else
     inc(i);
 end;
end;

разберётесь?

[KVANTOM]

Да. Спасибо. !