MediaplayerDisplay auf Panel anpassen

[Muddy]

Hallo!!

In meinem Programm kann ich bereits eine Videodatei, über ein Panel als Dispay, abspielen!
Doch jezt habe ich das PRoblem, dass sich das Video nicht an die Panelgröße anpasst!!

Wie kann ich diess PRoblem beheben??

Delphi-Quellcode:

  procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    begin
      mediaplayer1.Filename:=OpenDialog1.FileName;
      mediaplayer1.Open;
      Trackbar1.Min:=0;
      Trackbar1.Max:=Mediaplayer1.Length;
    end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Trackbar1.Max <> 0 then
    Trackbar1.Position:=Trackbar1.Position;

end;

Bitte auch Beispiele als delphi-Code!!