TStringList.Sort

Procedure Sort;
Example: S.CommaText := 'Zebra, Elephant, Ant'; S.Sort; Writeln(S[0]); results in "Ant".