TMediaPlayer + fullscreen

Mam pewiewn problem. Sszukalem juz na forum ale nigdzie nie widzialem rozwiazania.
Otoz probuje napisac prosta aplikacje ktore wyswietli film AVI na pelnym ekranie.
Uzywam do tego takiego kodu:

with MediaPlayer1 do 
begin 
FileName := 'c:\z.avi'; 
Open; 
Display := nil; 
DisplayRect := Rect(0,0, Screen.Width, Screen.Height); 
Play; 
end; 

Biorac na logike powinno dzialac, jednak wyswietlony film jest wiekszy niz caly ekran i jest
obciety wkolo. Czy ktos wie, dlaczego tak jest i co mozna na to poradzic?

Pomogę ci !!

Utwóz se dodatkowego Form-a i ustaw mu Name na FullForm w nim postaw Panel-a i ustaw mu Name na FullPanel i ustaw w FullPanel Algin na alClient i w przycisku który ma włanczać pełny ekran wpisz
<delphi> begin
ShowCursor(False);
FullForm.BorderStyle := bsNone; // ukryj pasek
FullForm.WindowState := wsMaximized; // Powiększ Okienko
Mediaplayer1.Display := FullForm.FullPanel;// Mediaplayer używa do Obraz-u Panel-a
with FullForm.FullPanel do // Rozmiar Panel-u powiększ do rozmiaru Film-u
Mediaplayer1.DisplayRect := Rect(0, 0, Width, Height);
showcursor(false);
FullForm.ShowModal; // Pokaż Okienko z Panel-em na duży Ekran
end; <delphi> i masz pełny ekran

Moze to i glupie ale gdzie mam umiescic linie:
MediaPlayer1.Play;?

Bo jedynym rezultatem dzialania podanej tu procedury jest wyswietlenie drugiej formy na pelny ekran oraz blad No MCI Device open.

Nazwa filmu jest wczesniej ustalona.

Witaj Beju!

Jeśli dobrze zrozmiałem intencje przedmówcy, to powinieneś umieścić linijkę
MediaPlayer1.Play; wewnątrz tej procedury co zaproponował mgx8, np. zaraz przed słowem end; film powinien startować od razu po kliknięciu na przycisk.

Pozdrawiam

DziQus :-| </delphi>

Najlepiej to postaw se Opendialog-a i oddzielny przycisk do otwarcia pliku i w nim tak !!
Opendialog1.Execute;
MediaPlayer1.Filename := Opendialog1.Filename;
Mediaplayer1.Open;
Mediaplayer1.Play;

a do przycisku Pełny Ekran wpisz to co ci wcześniej podałem !!