Удаления дубликатов строк memo

var k,i:Integer;
begin
 k:=2;
 i:=ListBox1.Perform(LB_FINDSTRING,k,integer(pchar(ListBox1.Items[k])));
 while i<>k do begin
  ListBox1.Items.Delete(i);
  i:=ListBox1.Perform(LB_FINDSTRING,k,integer(pchar(ListBox1.Items[k])));
 end;
end;

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 then
     Memo1.Lines.Delete(i)
   else
     inc(i);
 end;
end;