Problem mit TMediaPlayer

[chrys]

Code:

procedure TForm34.FormCreate(Sender: TObject);
var topleft,bottomright:TPoint;
begin
Intro.FileName:=ExtractFilePath(Application.ExeName) + 'Movies\SPQR-LOGO.avi';
Intro.Open;
with rec do
   begin
      topleft:=point(0, 0);
      bottomright:=point(panel1.width, panel1.height);
   end;
   Intro.DisplayRect:=rec;
   Intro.Play;
end;