Listbox nach Datum sortieren

[Satty67]

Das liegt daran, das Deine ListBox1 auch leer ist! Dabei darfst Du Dich nicht von der Anzeige täuschen lassen...

Delphi-Quellcode:

procedure TForm1.RandomizeArrays;
var i:integer;
begin
randomize;
Listbox1.Clear;
for i:= 0 to (400-1) do
begin
Listbox1.items[i]:=  DatetoStr(Random(42000)); // Riesen Fehler
end;
Label1.Caption:= inttostr(i)+' '+'Zufallsdatums erzeugt!';
end;

Du beschreibst Listbox Items, die gar nicht da sind (keine Ahnung warum da noch nicht der Fehler kommt). Damit bleibt ListBox1.Items.Count auch auf -1, was später zum Fehler führt.

Bau Deine Zufalls-Liste so auf
Listbox1.items.add(DatetoStr(Random(42000))); €: das wäre dann auch die Stelle, wo Dein Code von toms Beispiel abweicht