窗体创建的问题

Question

我原来创建窗体用的代码是
Application.CreateForm(TForm1, Form1);
with Form1 do
   begin
      ShowModal;
      Free;
      Form1:=nil;
   end;
`
``（代码）
```窗体创建后程序不执行之后的代码了，等待该窗体关闭后再执行。而且该进程始终聚焦在新窗体上。直至新窗体关闭。
我希望创建窗体时产生一个新的进程。可以在主窗体和本窗体间任意切换聚焦且可以创建多个同样的窗体,类似oicq的好友发送信息
给分求解决办法

Answer 1

先从菜单"project"-》“Options”把新窗体(如FORM2)移动右边创建
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Form2) then
  Form2:=TForm2.Create(Application);
Form2.Show;
end;再新窗体中处理这两个事件
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2:=nil;
end;

Answer 2

show的方法只能创建一个窗体```我希望同一个窗体可以创建多次. 而且创建后的窗体在windows的任务栏里有显示`````

Answer 3

现在可以同一窗体创建多次了```但是如何让新创建的窗体在windows的任务栏里有显示呢？

Answer 4

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  params.ExStyle:=params.ExStyle or WS_EX_APPWINDOW;
end;