Listbox: Letzen Eintrag erkennen?

[mlspider]

Ich habe wieder einmal ein Verständnisproblem. Ich versuche eine Schleife zu durchlaufen und möchte nachdem der letzte Eintrag einer Listbox durchlaufen wurde, einen Prozess in Gang setzten.

Hier der Schleifenaufruf:

Delphi-Quellcode:

procedure TBrennWizard3.Button4Click(Sender: TObject);
var
  i: Integer;
begin
 if ListBox1.Count > 0 then begin
 for i := 0 to ListBox1.Items.Count - 1 do
 ListBox1.ItemIndex:= 0;
 ListBox1Click(nil);
 Timer4.Enabled:=True;
 end else begin
 Timer4.Enabled:=False;
 Label9.Visible:=False;
 BurnCD;
 Timer2.Enabled := True;
end;
end;

procedure TBrennWizard3.Timer4Timer(Sender: TObject);
begin
 Timer4.Enabled:=False;
 mcdb.InsertFile('\', Edit1.Text);
 ListBox1.DeleteSelected;
 Button4Click(nil);
end;

Hierbei wird bei jedem Durchlauf der erste Eintrag entfernt und der nächste neue Eintrag, der nun an erster Position gerutscht ist, ausgewählt. Leider bekomme ich als Quittung den berühmten
Satz: "Listenindex überschreitet das Maximum (-1)". Wo könnte der Fehler liegen?