Ayuda con Reproductor de Musica

[bigguntm]

buenas a toda la comunidad, ahorita vengo con una detallido y quisiera que me ayudaran, yo quiero que mi playlist sea recorrido y cuando llegue a la ultima cancion se detenga, y no se repita a cada momento la ultima cancion.

el codigo que tengo ahorita es este,

Código Delphi [-]
 
var
i: Integer;
item: string;
begin
  Opendialog1.Title  := 'Abrir Archivos';
//  Abrir.Filter := 'mp3|*.mp3,mp3|*.ogg';

  if not Opendialog1.Execute then
  exit;
         // Extrae el nombre de la cancion agregada del open
        lbmusic.Items.Add(ExtractFilename(OpenDialog1.Filename));
          begin
  i:= 0;
  // Elimina los duplicados de lbmusic
  with lbmusic.Items do
    while Count > i do
    begin
      if IndexOf(strings[i])<>i then
        Delete(i)
      else
        inc(i);
    end;
end;
 // reproducir la cancion seleccionada del open
MediaPlayer1.FileName:=OpenDialog1.Filename;
MediaPlayer1.DeviceType := dtAutoSelect;
Mediaplayer1.Open;
Mediaplayer1.Play;
//  me permite pasar de cancion luego qe termine una
Timer3.Enabled := true;
// activa el progressbar
Timer5.Enabled := true;
// muestra la ventana donde se contienen las canciones
lbMusic.Visible := true;
// muestra el volumen
tbVolumen.Visible := true;
// muestra el progressbar
ProgressBar1.Visible := true;
// selecciona la cancion que agregue
lbmusic.ItemIndex := lbmusic.ItemIndex +1;
// deselecciona otro listbox
lstbprogramas.ItemIndex := -1;
  // me habilita el boton de retroceder al agregar una cancion
  If lbmusic.items.count = 2  then begin
   btnPreview.enabled := true; end;

end;

quisiera que me ayudaran con

Código Delphi [-]
// timer3
begin
if lbmusic.itemindex > -1 then // si lbmusic no tiene mas cancion, que timer2 quede ne 'false' (no se como hacer para saber si hay otro item o no) 
   Timer2.Enabled := true else
   Timer2.Enabled := false;
end;

saludos y espero su respuesta