[Страдалецъ]

Примерно так:

Код:

Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Duplicates := dupIgnore;
 SL.Sorted := True;
 SL.Text := Memo1.Text;
 Memo1.Text := SL.Text;
 SL.Free;