Form bereits erzeugt?

[toms]

Code:

function FormExists(AForm: TCustomForm): Boolean;
var
  i: integer;
begin
  Result := True;
  for i := Screen.CustomFormCount - 1 downto 0 do
    if Screen.CustomForms[i] = AForm then
      Exit;
  Result := False;
end;