delphi动态创建窗体的事件（高分紧急）

procedure FilmResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);//自定一个过程

procedure TForm1.FilmResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean); //实现
begin
mediaplayer1.DisplayRect := TForm(Sender).ClientRect ;
Resize := True;
end;

var
film:tform;
begin
film:=tform.Create(self);
film.Caption:=mediaplayer1.FileName;
film.Width:=600;
film.Height:=400;
film.Position:=podesktopcenter;
film.OnCanResize := FilmResize ;//把OnCanResize事件指针指向FilmResize
film.Visible :=true;
mediaplayer1.Display :=film;
mediaplayer1.DisplayRect :=film.ClientRect ;
//mediaplayer1.Open ;
//mediaplayer1.Play ;
end;