大家看看，这样写有什么用

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
xApplication:TApplication;
public
{ Public declarations }
end;

var
Form1,Formx: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
xApplication:=TApplication.Create(self);
xApplication.Initialize;
xApplication.CreateForm(TForm1, Formx);
xApplication.Run;
end;