Foros Club Delphi - Presentar Multiples videos consecutivos

Buenas, hoy vengo con un pequeño problema el cual no encuentro como solucionar. Estoy desarrollando un sistema de turnos (Cola de llamada). Les explico brevemente para que sepan y puedan ayudarme.

Este consta de 3 partes:
Primero : Una pantalla la cual genera un numero (Aleatorio o Estación dependerá cual sea la opción). Luego este numero va a una base de datos con la opción Estado Igual N (No atendido), para que los o el representante pueda ver quien esta en cola.

Segundo : La pantalla del representante consta de un logueo de usuario a una estación la cual es fija por equipo no por usuario. Luego de logueado solo le mostrara los números asignado a esa estación. Con un botón el representante llamara el primer numero en su cola (Esto modifica el campo Estado a L (llamar). Si un numero es llamado mas de x veces el representante tiene la opción de cambiar su Estado a C (Cancelado por usuario)

Nota punto 2 : Me gustaría poder hacerlo automáticamente a x veces según configuración guardada en un .ini

Tercero : La pantalla de presentación/Llamada esta solo posee 2 paneles ocultos, uno que presenta una serie de vídeo configurados en una base de datos y el otro el de presentar el numero que se esta llamando. Esto paneles no están visibles al mismo tiempo, es decir cuando se va a llamar un numero se desactiva(Pausa) el vídeo y se hace el llamado de la lista de números disponibles contenidos en un list el cual se carga cada 15 seg.

Cuando termina de llamar la lista de números desde el primero hasta el ultimo que este, se oculta y se continua con el video. Esta es su función.

Nota punto 3: Me gustaría que se llame el numero inmediatamente este modifique su estatus a L, en ves de esperar los 15 seg. del timer para cargar la lista de números.

Problema no puedo hacer que me continué la lista de vídeos guardadas en un list, no se como hacerlo, es decir como saber cuando termine para incrementar una variable indice o si es la continuación del mismo vídeo antes de ser pausado por la llamada.

Acá les paso códigos para que analicen y me den sus posibles soluciones/ayuda

Código Delphi [-]procedure TfrmVisualizador.Llamar_ticket(marcador: Integer);
var
  llamar : string;
  dirvoz : string;
  espera : Integer;
begin
   dirvoz := ExtractFilePath(Application.ExeName)+'Sonido\';

      numero        := Trim(lstNumero.Items[marcador]);
      representante := StrToInt(Trim(lstrepresentante.Items[marcador]));

      //Primer llamado
      llamar := dirvoz + 'T'+ Trim(numero) + '.wav';
      sndPlaySound(PChar(llamar),SND_NODEFAULT or SND_SYNC);

      Application.ProcessMessages;

      llamar := dirvoz + 'E'+ IntToStr(representante) + '.wav';
      sndPlaySound(PChar(llamar),SND_NODEFAULT or SND_SYNC);
      Application.ProcessMessages;

      espera := 1;
      for espera := 1 to 40000 do //esto debería ser una pausa, pero aun asi lo llama inmediatamente no espera 
      begin
          Application.ProcessMessages;
          sndPlaySound(nil, 0);
      end;

      //Segundo llamado
      llamar := dirvoz + 'T'+ Trim(numero) + '.wav';
      sndPlaySound(PChar(llamar),SND_NODEFAULT or SND_SYNC);

      Application.ProcessMessages;

      llamar := dirvoz + 'E'+ IntToStr(representante) + '.wav';
      sndPlaySound(PChar(llamar),SND_NODEFAULT or SND_SYNC);
      Application.ProcessMessages;
      sndPlaySound(nil, 0);
end;

procedure TfrmVisualizador.tmrVerificarTickeTimer(Sender: TObject);
var
  i,espera : Integer;
begin
  //Limpiar lista de numeros vieja
  lstNumero.Clear;
  lstrepresentante.Clear;

  //Cargando Numeros
  DM.qryTurnos.Close;
  DM.qryTurnos.SQL.Text := 'SELECT * FROM tblTurnos Where Estatus = ''L'' ';
  DM.qryTurnos.Open;
  DM.qryTurnos.First;
    while not(DM.qryTurnos.Eof) do
    begin
      lstNumero.Items.Add(Trim(dm.qryTurnosletra.AsString)+Trim(dm.qryTurnosturno.AsString));
      lstrepresentante.Items.Add(dm.qryTurnosrepresentante.AsString);
      dm.qryTurnos.Next;
      Application.ProcessMessages;
    end;
  DM.qryTurnos.Close;

  If lstNumero.Items.Count < 1 then
  begin
    PresentarVideos(indice);
    Exit;
  end;

  If (lstNumero.Items.Count > 0) and (lstNumero.Items.Count > 0) then
  begin
    tmrVerificarTicke.Enabled := False;
    mpvideos.Pause;

    pnlVideos.Visible := False;
    grpticket.Visible := True;

    for i := 0 to (lstNumero.Count-1) do
    begin
      lblticketnumero.Caption := Trim(lstNumero.Items[i]);
      lblticketrepresentante.Caption := Trim(lstrepresentante.Items[i]);
      Application.ProcessMessages;
      Llamar_ticket(i);

      espera := 1;
      for espera := 1 to 100000 do
      begin
          Application.ProcessMessages;
          sndPlaySound(nil, 0)
      end;
    end;
    tmrVerificarTicke.Enabled := True;
    grpticket.Visible := False;

    pnlVideos.Visible := True;
    mpvideos.Resume;
    presentarvideos(indice);
  end;
end;


procedure TfrmVisualizador.presentarvideos(Indice : Integer);
begin
    //Preparar el rectangulo de visualizacion de video
    mpvideos.filename :=  Trim(lstActividad.Items[indice]); //video a presentar
    mpvideos.Display  := pnlVideos;
    mpvideos.Open;
    mpvideos.DisplayRect := pnlVideos.ClientRect; //rec es el rectangulo. Quiere decir que el rectangulo del display y el del panel 1 han de ser iguales.

    try
      mpvideos.Play;
    except
      indice := indice + 1;
      presentarvideos(indice);
    end;
end;

Utilizo Delphi 7, MySql

Gracias de ante manos por cualquier sugerencia o ayuda prestada
Gracias tambien por toda la ayuda prestada cada ves que presento un problema en este foro