if Assigned(Form1) then
begin
  //表示已经显示
end;