如何在运行时期实例化一个TWordApplication类？(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
WordApplication1: TWordApplication;
begin
WordApplication1.Create(Form1);
WordApplication1.Connect;
WordApplication1.Disconnect;
WordApplication1.Destroy;
end;
一运行WordApplication1.Create(Form1);就出错

WordApplication1:=TWordApplication.Create(From1)

接受答案了.