Tstringlist 如何 除重复内容？

Delphi(Pascal) code

list.add('a');list.add('a');list.add('a');list.add('b');list.add('b');list.add('b');list.add('c');list.add('c');list.add('c');如何除掉重复内容呀！

[解决办法]
var
List: TStringList;
begin
List := TStringList.Create;
List.Sorted := True; //需要先指定排序
List.Duplicates := dupIgnore; //如有重复值则放弃
list.add('a');
list.add('a');
list.add('a');
list.add('b');
list.add('b');
list.add('b');
list.add('c');
list.add('c');
list.add('c');
end;