如何把Formshow中创建的窗体成为活动窗体

我的程序如下：
使用 vclskin 
   procedure FirstForm.formshow(sender:tobject);
    begin
       ...
       form:=tForm.create(application);
       form.showmodal;
       form.free;
   end;
  form 窗体显示后，不是当前活动窗体，ForstForm是活动窗体，如何使form　变成活动窗体。