1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.Button1Click(Sender: TObject);
begin
if index1 >= 0 then                         //wenn index1 = 0 ist oder größer dann index3 erhöhen
begin
listbox3.Selected[index3] := true;
inc(index3);                              //listbox3 index um 1 erhöhen
end;
if index1 = listbox1.Count  then           //wenn index1 = listbox1 ist der durlauf fertig
begin
Showmessage('Fertig');
end;
if index2 = listbox2.Count-1 then          //wenn index2 = listbox2 ist dann auf 0 stellen
begin                                    //ready für neuen durchlauf
index2 := 0;
inc(index1);                            //listbox1 index um 1 erhöhen
listbox1.Selected[index1] := true;
end;
if index3 = listbox3.Count then          //wenn index3 = listbox3 ist dann auf 0 stellen
begin                                    //ready für neuen durchlauf
index3 := 0; 
inc(index2);                            //listbox2 index um 1 erhöhen
listbox2.Selected[index2] := true;     
end;
end;                    

1:

if index2 = listbox2.Count-1 then   // -1