[Mealgay]

Это на самом деле очень просто вот мой код.

procedure onRizeVideo;

Код:

procedure TForm1.onRizeVideo;
var MyRect: TRect;
begin
 MediaPlayer1.Stop;
 MyRect.Top := Panel1.ClientRect.Top;
 MyRect.Left := Panel1.ClientRect.Left;
 MyRect.Right := Panel1.ClientRect.Right;
 MyRect.Bottom := Panel1.ClientRect.Bottom;
 MediaPlayer1.DisplayRect := MyRect;
 MediaPlayer1.Play;
end;

Код:

procedure TForm1.Panel1Resize(Sender: TObject);
begin
 onRizeVideo;
end;

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 onRizeVideo;
 MediaPlayer1.Play;
end;