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;