怎样建立动态的窗口和怎样去执行它，新手一名，分不够可以加。

Question

Form1:=Tform.creat(nil);
with Form1 do
begin
  show;
  free;
end;

Answer 1

//上面的窗口还没看见就……Form1:=Tform.creat(nil);
with Form1 do
begin
  showModal;//模态显示
  free;
end; 

Answer 2

1.新建一个工程。
表单：MainForm;单元文件:MainFormPas.pas;工程文件:test.dpr;
2.新建一个表单.
表单:SecForm;单元文件:SecFormPas.pas;
3.在此新建的表单上放置想要的控件。
4.点菜单 Projiect/Options .把SecForm从 "auto-create form"中 转移到"Avaliable forms"中。
5.在MainFormPas 中引用 "SecFormPas.pas".具体步骤:保证MainForm是活动的。然后点菜单 File/use units... 在弹出的对话框中选SecForm;
5.在MainForm中某个事件中写代码：
procedure TMainForm.Button1Click(Sender: TObject);
var
TempForm:TSecForm;
begin
TempForm:=TSecForm.create(nil);
with TempForm do
begin
 try
  ShowModal;
 finally
  free;
 end;
end;end;//=====================ok============