Listbox: letzten Eintrag erkennen?

[mlspider]

Hier mal die gesamte Procedur:

Delphi-Quellcode:

procedure TForm1.LameCoder1EndProcess(Sender: TObject);
begin
 ProgressBar1.Position:=0;
 DeleteFile(Memo1.Text); //Das ist die zu rippende Datei
 Label12.Caption:='Track erfolgreich gerippt';
 Label15.Caption:=IntToStr(StrToInt(Label15.Caption)  + StrToInt(Label18.Caption));
 listbox1.ItemIndex:=StrToInt(Label15.Caption);
 if Listbox1.ItemIndex <> -1 then begin //Hier soll geprüft werden,
 //ob das Listenende erreicht wurde. Wenn nicht, dann Timer auf True
 //und ButtonClick.
 Listbox1.Items[ListBox1.Items.Count -1];
 Label13.Caption:='Track '+InttoSTR(Listbox1.ItemIndex + 1);
 Timer2.Enabled:=True;
 Button4Click(nil);
end;
end;

Button4 Event:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var ini: TIniFile;
begin
 CDRip.RipTrack(Edit1.Text+'\'+Label13.Caption+'.wav',seltrack,drivenum,Application);
 //Edit1 beinhaltet den Zielpfad.
Timer2.Enabled:=True;

 ini:=TIniFile.Create('C:\3\ripphat.ini');
 try
  Ini.WriteString('ripphat', '01', Edit1.Text);
 finally
  Ini.Free;
end;
end;