FullScreen - problem z wykonaniem funkcji w VideoPlayerze

W jaki sposób mogę napisać funkcję która po kliknięciu w przycisk będzie rozszerzała mi film, który leci w danym momencie, na cały ekran? Dodam, że korzystam z DSPacka.

EDIT:
Doszedłem do czegoś takiego:

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowCursor(False);
    FullForm.BorderStyle := bsNone;
    FullForm.WindowState := wsMaximized;
    DSVideoWindowEx21 := FullForm.FullPanel;
          with FullForm.FullPanel do
    DSVideoWindowEx21.DisplayRect := Rect(0, 0, Width, Height);
showcursor(false);
FullForm.ShowModal;

end; 

Błąd wyskakuje w tym miejscu:

 DSVideoWindowEx21.DisplayRect := Rect(0, 0, Width, Height);