[dec]

Hola,

Podrías probar con algo así:

Código Delphi [-]
var
  t: TStringList;
begin
  t := TStringList.Create();
  try
    t.Sorted := true;
    t.CaseSensitive := true;
    t.Duplicates := dupIgnore;
    t.LoadFromFile('C:\archivo.txt');
    Memo1.Lines.Assign(t);
  finally
    t.Free();
  end;
end;