判断窗体存在

var

  form:Tform2;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if form=nil then  //也可写成if not Assigned(form) then 

  begin 

    form:=Tform2.Create(application);

  end;

  else

  begin

    if form.WindowState=wsMinimized then

    begin

      ShowWindow(form.Handle,SW_SHOWNORMAL);

      if (not form.Visible ) then //打开，但不可见

      begin

         form.Visible :=True;

         form.BringToFront;

         form.SetFocus ;

         Exit;

      end;

    end;

  end;

  form.Show;

end;