Добрый день! Подскажите, пожалуйста, как сделать так, чтобы при изменении размера компонента Animate в работающем приложении (например, пользователь изменяет размер этого компонента мышкой) автоматически менялся размер проигрываемого видеофайла.
Код примерно такой:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Animate1.FileName:='C:\Video.avi';
 Animate1.Play(0,Animate1.FrameCount,1);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 Panel1.Width:=Form1.Width-2*Panel1.Left;
 Animate1.Width:=Panel1.Width-2*Animate1.Left;
end;

Заранее спасибо!!!