Delphi-Quellcode:
if Listbox1.ItemIndex <> -1 then begin
Listbox1.Items[ListBox1.Items.Count -1];
Label13.Caption:='Track '+InttoSTR(Listbox1.ItemIndex + 1);
Timer2.Enabled:=True;
Button4Click(nil);
Bei Listenende wird ButtonClick fleißig weiter ausgeführt. Leider.