mp3 player

hey

jeg har lavet en mp3 player, og jeg ved ikke hvordan jeg kan få den til at spille den næste sang efter den første er færdig.

har prøvet en hel masse med + 1 med virker aldrig.

og er det mulig at der står sangens title istedet for stien til sangen?? jeg bruger en listbox

den bruger jeg til at afspille en sang

function TForm1.PlaySong : string;
var
mp3File : string;
begin
//if the list is empty don't do anything
if listbox1.Items.Count=0 then exit;

//mp3FIle is the selected song
mp3File := listbox1.Items.Strings[listbox1.ItemIndex];

  //Chechk again if it exists
if not FileExists(mp3File) then begin
  ShowMessage('The MP3 file does not exist!');
  exit;
end;

Progress.MaxValue := 0;
Mediaplayer1.close;
mediaplayer1.FileName := mp3File;
mediaplayer1.open;
mediaplayer1.play;
timer1.Enabled := true;
Progress.MaxValue := mediaplayer1.Length;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Progress.MaxValue <> 0 then
    Progress.Progress := mediaplayer1.Position;

if progres.progress = 100 then
mediaplayer1.FileName := listbox1.Items.Strings[listbox1.ItemIndex + 1];;
mediaplayer1.open;
mediaplayer1.play;

end;