Listbox nach Datum sortieren

[Codix32]

Ein 'Hallo' an Popov und alle Delphianer hier.

Da bin ich wieder. Ich habe mal einige Vorschläge versucht umzusetzen und bin gescheitert.

Popov, Deine 'Listboxsortieren' Routine hängt an folgendem Problem:

EStringlistError:"Listenindex überschreitet das Maximum 199'".

Also von 400 Einträgen ist das ungefähr die Hälfte und das Problem hängt hier:

Delphi-Quellcode:

procedure TForm1.LBSortieren(LB: TListBox); // QuickSort

type
  TData = class
    Datum: TDateTime;
    DatumStr: String;
  end;

...

 procedure QuickSort(LB: TListBox; iLo, iHi: Integer); 
  var 
    Lo, Hi: Integer; 
    DataM, DataT: TData; 
    StrT: String;
  begin
   ....
   .... 
    DataM := TData(LB.Items.Objects[(Lo + Hi) div 2]);  <- gibt 199 und den Fehler!
   ....

Ich komme da nicht dahinter warum hier ein StringListFehler sein soll !?!?