var
  SS : TStringList;
begin
  SS := TStringList.Create;
  SS.Add('bbbbbb');
  SS.Add('aaaaaa');
  SS.Add('dddddd');
  SS.Add('cccccc');
  ShowMessage(Format('%s'#10'%s'#10'%s'#10'%s',[ SS[0],SS[1],SS[2],SS[3] ]));//排序前
  SS.Sort; //排序
  ShowMessage(Format('%s'#10'%s'#10'%s'#10'%s',[ SS[0],SS[1],SS[2],SS[3] ]));//排序后
  SS.Free;
end;