Fórum MediaPlayer auto ajustar #336248

Pessoal, estou querendo e não estou conseguindo
auto ajustar o filme dentro do panel.

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
with MediaPlayer1 do
begin
FileName := ´C:\Filmes\Filme.wmv´;
Open;
Display := Panel1;
Play;
end;
end;
end;

Abraços
Juarez