TColumnListBox sortieren

[Satyr]

Huhu,

ich finde den Ansatz zu etwas nicht, das sich im Grunde leicht anhört.
Ich habe eine TColumnListBox mit 2 Spalten. Aufgebaut in etwa so:

Spalte1: Spalte 2:
Haus1 2
Haus2 4
Haus3 1
Haus4 6
Haus5 3


Spalte 2 sind die Mieter in dem Haus. Nun möchte ich spalte 1 nach Spalte 2 sortieren.
Sortieralgorythmen gibt es genug, das ist nicht das Problem. Nur wie sortiere ich Spalt1 anhand von Spalte2 gleich mit?

Gruß,
Andreas