[Carlos Arevalo]

Muchas gracias por responder.

Utilizando el control Tmediaplayer como sugirio Jonnathan y un Timer pude controlar que ejecutara un evento durante la ejecucion de un video de la siguiente forma:

Código Delphi [-]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=inttostr(MediaPlayer1.Position);

if strtoint(label2.Caption) <= 15 then
  label4.Caption:='SUELTA PELOTA';

if (strtoint(label2.Caption) >= 35) and (strtoint(label2.Caption) <= 71) then
  label4.Caption:='CARGA PELOTA';

if strtoint(label2.Caption) >= 72 then
  label4.Caption:='LANZA PELOTA';

end;

Muchas gracias.