procedure TForm1.Button2Click(Sender: TObject);
var
 Tfrom3:Tform;
begin
  Tform3:=Tform.Create(nil);
  Tform3.Height :=200;
  Tform3.Width:=300;
  Tform3.Show;
end;

看看<delphi7从入门到精通>,就全会了，专有论述

procedure TForm1.Button1Click(Sender: TObject);
var
  NewForm: Tform;   //声明新的窗体变量
begin
  NewForm:=Tform.Create(Nil);  //动态创建窗体
  NewForm.Caption:='动态创建窗体示例';
  NewForm.Position:=poScreenCenter;  //居中显示
  NewForm.ShowModal;          //显示窗体
  NewForm.Free;               //释放窗体
end;