Mal so als Schnellschuß, weise Deinen Text einer Stringlist.DelimitedText zu. Delimiter wäre dann das Blank (x20).
Dann solltest Du unter .Strings Deine Wörter wieder finden. Darauf einen .Sort und den .Text einem Memo.Lines.Text zuweisen, fertig ist die Laube.
Je nachdem mit welcher Delphi Version Du arbeitest, können die Parameter zu DelimitedText unterschiedlich sein, darum ist ein Blick in die
OH auf jeden Fall angeraten.
Falls Du die Sortierroutine selbst schreiben willst, grundsätzlich kannst Du immer
if Wert1>Wert2 then
nutzen, egal ob Wert1,Wert2 nun Integer oder Strings sind.
Gruß
K-H