var
  F:TForm3;
begin
  F := TForm3.Create(Self);
  try
   F.Showmodal
  Finally
    F.Free
  end;
end;

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
     Form2:TForm1;
    begin
     Form2:=TForm1.Create(self);
     Form2.show;
    end;
      

  2.   

    在要引用的地方加入
    变量声明
    var f3(f4,f5想几个就定义几个):tform3
    创建
    f3:=tform3.create(self);
    f4:=tform3.create(self);
    ...
    当然必须在该单元中引用tform3所在的单元
      

  3.   

    var
      F : TForm2;
    begin
     F := TForm2.create(nil);
     F.show;
     
    end;
      

  4.   

    多谢谢兄弟们热心帮忙,我也是这样做的,可老是提示出错;
    出错信息是: Abstract Error !
    这是怎么回事?