Willkommen in der Delphi-PRAXiS.
Wenn du ListBox2 durch ListBox1 ersetzt, dann sollte zumindest der Index-Fehler verschwinden...
Freundliche Grüße vom marabu
PS: So würde es übrigens wirklich funktionieren:
Delphi-Quellcode:
var
s: TStrings;
sNumber: string;
begin
Randomize;
ListBox.Sorted := true; // zur leichteren visuellen Kontrolle
s := ListBox.Items;
s.Clear;
repeat
sNumber := IntToStr(Succ(Random(100)));
if s.IndexOf(sNumber) < 0 then
s.Add(sNumber);
until s.Count = 10;
end;