关于Form显示的问题——斑竹修改，请贴主注意！这里是技术论坛！ (20分)

procedure tmain_form.mdform(vform:tform);
begin
if vform=nil then
vform:=vform.Create(self); //这步会出错
vform.ShowModal;
end;
上面代码是我定意的一个过程，用来显示表单。（FORM动态创建,没有在内存里）。
调用main_form.mdform(myform);会出错，请帮我解。。。。。

begin
if vform=nil then
begin
vform:=vform.Create(application); //
vform.ShowModal;
end;
end;

vform:tform是吗？，那么
vform:=tform.Create(application);

interface
tform1=class(tform)
————————
————————
implementation
_______________
___________
vform:=tform1.create(self);

各位，还是联行啦~~！

unit Unit1;

interface

uses
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

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
form2:tform1;
begin


form2:=tform1.Create(self);
form2.Caption :='ksdfsdf';
form2.ShowModal ;


end;

end.