Min dejlige playlist

Jeg har et lille problem, som egentlig burde være nemt at løse... Men lyt:

Når jeg sætter min mediaplayer til at spille, så spiller den lystigt hele min playlist, der er bare lige én ting... Når den er færdig med sidste item i min listbox (playlist), så kommer den med en fejlmeddelelse om at listen er 'out of bounds'.

Kan jeg fjerne denne fejl?
Eller måske ligefrem få den til at afspille min playlists item nummer 1 når hele listen er spillet igennem.

Her følger den procedure, der får min mediaplayer til at gå videre til næste item i playlisten hver gang en sang er færdig:

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if mediaplayer1.Position >= mediaplayer1.Length then
begin
Nummer := listbox1.ItemIndex;
Nummer := Nummer +1;
Mediaplayer1.filename := Listbox1.Items.Strings[Nummer];
Mediaplayer1.open;
Mediaplayer1.play;
Label8.caption := Copy(ExtractFileName(mediaPlayer1.Filename), 0, Length(ExtractFileName(mediaPlayer1.Filename))-Length(ExtractFileExt(mediaPlayer1.Filename)));
form2.TrackBar1.MinValue := 0;
form2.TrackBar1.Position := 0;
form2.TrackBar1.MaxValue := MediaPlayer1.Length;
TrackBar1.MinValue := 0;
TrackBar1.Position := 0;
TrackBar1.MaxValue := MediaPlayer1.Length;

ListBox1.Selected[nummer+1]:=True;
end;
end;