Un Video en 2 forms distintos

[sac]

Ecfisa estoy trabajando con el código de la página que me pasaste.

Perdón la ignorancia pero necesito ayuda para saber como cambiar los valores del tamaño del display (por ejemplo yo usaba)
VideodeFondo.DisplayRect:=Rect(0,0,Fondo.P_Video.Width,Fondo.P_Video.Height); donde P_Video era el panel que usaba como display donde corría el video.

Además necesito modificar los valores porque los videos se ven en distintos tamaños.

y otra cosa que no entiendo es como indicarles hacer un loop al video para que no se corte.
Mucho no entiendo el código.

[ecfisa]

Hola sac.

Yo tampoco entiendo tu situación con claridad, pero fijate si te sirve de este modo:

Código Delphi [-]
uses MMSystem;

procedure PlayVideo(WinControl: TWinControl; const FileName: string;
  const Loop: Boolean = False);
const
  PLAYCMD: array[Boolean] of string = ('play VIDEO1', 'play VIDEO1 repeat');
var
  R: TRect;
begin
  R:= WinControl.ClientRect;
  mciSendString('close VIDEO1', nil, 0, 0);
  mciSendString(PChar('open "' + FileName + '" alias VIDEO1'), nil, 0, 0);
  mciSendString(PChar('window VIDEO1 handle ' + IntToStr(WinControl.Handle)), nil, 0, 0);
  mciSendString(PChar('put VIDEO1' + Format('%d %d %d %d',
    [R.Left,R.Top,R.Right,R.Bottom])), nil, 0, 0);
  mciSendString(PChar(PLAYCMD[Loop]), nil, 0, 0);
end;

Ejemplo de uso:

Código Delphi [-]
...
  // sin repetición
  PlayVideo(Panel1, 'wildlife.wmv');

  // con repetición
  PlayVideo(Panel1, 'wildlife.wmv', True);

Saludos