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.