Listbox sortieren

[Taladan]

Ich nutze eine Listbox um Datensätze anzeigen zu lassen und um später per drag & drop die namen aus der listbox in eine Tabelle zu ziehen. ich fülle die Listbox zur laufzeit folgendermaßen.

Delphi-Quellcode:

type
  THidden = class(TObject)
  public
    ID: Integer;
  end;


procedure THauptform.ListboxFuellen(Sender : TObject);
var name : string;
    x : integer;
    hiddendata : THidden;
begin
     x:= 0;
     table1.first;
     listbox1.clear;
     while not (table1.eof) do
     begin
       hiddendata := Thidden.create;
       hiddendata.id := table1zhler.value;
       name := table1Name.value + ', ' + table1Vorname.value ;
       listbox1.items.InsertObject(x, name, hiddendata);
       inc(x);
       table1.Next;
     end;
     hiddendata := THidden.create;
     hiddendata.id := 0;
     name := '(leer)';
     listbox1.items.InsertObject(x, name, hiddendata);
     listbox1.sorted := true;
end;

Leider sortiert die Listbox jetzt nicht die einträge. Wie kann ich das ändern?

Eine neusortierung durch die Table1 bringt meinen gesamten Code durcheinander. Auch die listbox wollte ich so behalten, da sie mir sehr zusagt im optischen design.