Delphi Listbox Items nach Teil String sortieren

[Zeref Darkmage]

Im Anhang ist die Datei, danke schonmal für die berichtigung der fehler, bin noch bluts Anfänger

Es soll mit dem klick auf "sortieren" die Listbox nach der jeweils ersten Zahl im string vergleichen und danach verscheiben..

Bsp
71524 Tobi 7623 Müller
892748 Max 872 Müller
89237 Lucas 8723 Müller

hier wie gesagt die erste Zahl mit der jeweils anderen Zahl vergleichen um zu entscheiden was gerückt werden soll, danach aber wie gesagt den ganzen String sortiert anzeigen.

Das alles solang bis die kleinste Zahl unten steht und die größte oben

das weiter und zurück fügt es bzw. entfernt es aus der Listbox

lg