Posicionar um video em um determinado instante - ActiveX

[Carlão CPS]

Pessoal.

Estou desenvolvendo uma aplicação visualmente muito simples e esta aplicação deve abrir um determinado video no WindowsMediaPlayer dentro da aplicação.

Todavia, o video deve abrir no momento 00H:36M:09S e finalizar no momento 00H:38M:25S.

Até agora eu já consegui abrir o arquivo e dar um play.

WindowsMediaPlayer1.URL := 'c:\1.mpg';

WindowsMediaPlayer1.controls.play;

Obrigado

[Jhonas]

Estou desenvolvendo uma aplicação visualmente muito simples e esta aplicação deve abrir um determinado video no WindowsMediaPlayer dentro da aplicação.

Todavia, o video deve abrir no momento 00H:36M:09S e finalizar no momento 00H:38M:25S.

Seria algo assim:

var
  Form1: TForm1;
  HoraAtual : TTime;
  HoraIni, HoraFinal : TTime;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   HoraAtual := now;
   HoraIni := strtotime('00:36:09');
   HoraFinal := strtotime('00:38:25');
   if HoraAtual = HoraIni then
      begin
         WindowsMediaPlayer1.URL := 'c:\1.mpg';
         WindowsMediaPlayer1.controls.play;
      end;

   if HoraAtual >= HoraFinal then
      WindowsMediaPlayer1.controls.Stop;
end;

abraço