最好避免重复，所以保持字典（这里它被用作集合）与列表中已经存在的字符串。
示例：

uses System.Generics.Collections;

var
  MyDict: TDictionary<String, Integer>;
  s: string;
  sl: TStringList;
  strs: array of string;
begin
  strs := ['aa', 'bb', 'aa', 'dd'];
  sl := TStringList.Create;
  try
    MyDict := TDictionary<String, Integer>.Create;
    try
      for s in strs do
         if Mydict.TryAdd(s, 1) then
            sl.Add(s);
      Memo1.Lines.Assign(sl);
    finally
      MyDict.Free;
    end;
  finally
    sl.Free;
  end;