проблемы с видео.

[blackstersl]

Привет. Вопрос: есть panel, через неё воиспроизводим видео(.avi), которое было загружено через медиа плеер. Но если менять размер формы, то видео остаётся таким как было сначала. Вот код(взял из исходника):

var
    top,left: integer;
    width,height: integer;
    mw,mh: integer;
    i : integer;
begin
    videodialog.Title := 'Выбор клипа';
    if not videodialog.Execute
      then exit;
     mw:=spanel7.ClientWidth;
    width  := spanel7.Width;
    height := spanel7.Height;
    left := 2;
    top := 2;
    videoDialog.Options:= videodialog.Options+[ofAllowMultiSelect];
   for i:=0 to videodialog.Files.count-1 do
   begin
     ListBox1.Items.Add(extractfilename(videodialog.Files.strings[i]));
    MediaPlayer.FileName := videodialog.FileName;
    MediaPlayer.Open;
    MediaPlayer.DisplayRect := Rect(left,top,width,height);

Вот. Подскажите как можно будет сделать так чтоб при растягивании panel видео тоже расстягивалось и пропорционально(например: 400 х 250). Спасибо.

[Пепел Феникса]

при изменении ращзмеров формы формируй новую область и потом
MediaPlayer.DisplayRect := Rect(left,top,width,height);