以下代码为什么会出错？

Question

unit Unit2;interfaceuses forms,shdocvw;type
    TMyForm=class(TForm)
    end;    procedure MyForm();
var
    MyForm:TMyForm;implementationprocedure MyForm();
begin
    MyForm:=TMyForm.Create(nil);
    MyForm.Show;
end;
end.在form1里调用 unit2中的MyForm()看看能不能实现

Answer 1

unit Unit2;interfaceuses forms,shdocvw,unit1;type
    TMyForm=class(TForm1)
    public
    procedure LoadMyForm();
    end;
var
    MyForm:TMyForm;implementationprocedure TMyForm.LoadMyForm();
begin
    MyForm:=TMyForm.Create(nil);
    MyForm.Show;
end;
end.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses Unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
    MyForm.LoadMyForm();
end;end.

Answer 2

unit Unit2;interfaceuses forms,shdocvw;type
    TMyForm=class(TForm)
    end;var
    MyForm:TMyForm;implementationbegin
    
end.
unit Unit1;interfaceuses unit2;type
    TForm1=class(TForm)
   end;var
    MyForm:TMyForm;implementationbegin
    application.createform('TMyForm',MyForm);  //具体语法看应用程序开始部分
    MyForm.Show;
end.

Answer 3

换汤不换药
楼主的想法与直接做两个from 然后相互引用 有什么本质区别？
所以，我想楼主的想法是脱离delphi的vcl自己创建一个窗体，是吗？
如果是的话，使用api函数啦，具体的我现在忘记啦
你先查查？
我也帮你找找