delphi form内部调用创建自己

var
  _MyData: TMyStructure; //传递的参数必须是全局的

implementation

{$R *.dfm}
 

procedure TForm2.Excute_Form(MyData: TMyStructure);
begin

  _MyData := MyData;
  with TForm2.Create(Application) do
  begin
    try
      Init;
       ShowModal;
    finally
      Free;
    end;
  end;

end;