1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

mediaplayer1.FileName:='mein_Film.avi';
mediaplayer1.Open;
MediaPlayer1.Display := MoviePanel;

// Die Größe des MoviePanels an den Film anpassen 
// (Das Seitenverhältnis wird dadurch festgelegt)
MoviePanel.BoundsRect := MediaPlayer1.DisplayRect;
// MoviePanel leigt auf dem MainPanel drauf.
// Das MainPanel ist die maximale Größe des Films.
// dorthinein wird das MoviePanel so gestreckt, dass es bei 
// geleichbleibendem Seitenverhältnis optimal passt.
StretchPanel(MoviePanel, MainPanel);

MediaPlayer1.DisplayRect := MoviePanel.ClientRect;
MediaPlayer1.Play;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure StretchPanel(var Source:TPanel; var Bounds:TPanel);
var xfactor, yfactor:double;
begin
  try
    xfactor:= (Bounds.Width-22) / Source.Width;
    yfactor:= (Bounds.Height-4) / Source.Height;
    // so weit wie möglich strecken
    if xfactor > yfactor then
    begin
      Source.Width:=round(Source.Width*yfactor);
      Source.Height:=round(Source.Height*yfactor);
      source.Top:=2;
      source.Left:=2+((Bounds.Width-22 - Source.Width) Div 2);
    end else
    begin
      Source.Width:=round(Source.Width*xfactor);
      Source.Height:=round(Source.Height*xfactor);
      source.Left:=2;
      source.Top:=2+(Bounds.Height-4 - Source.Height) Div 2;
    end;
  except
  end;
end;