[Casimiro Notevi]

Le he preguntado a chatgpt y dice esto:

Código Delphi [-]
var
  FormularioAbierto: Boolean = False;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if FormularioAbierto then
  begin
    Close;
    Exit;
  end;

  // Resto del código de inicialización del formulario
end;

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormularioAbierto := False;
end;

Código Delphi [-]
procedure TFormMain.AbrirFormularioClick(Sender: TObject);
begin
  if not Assigned(Formulario) then
  begin
    Formulario := TFormulario.Create(Self);
    Formulario.Show;
  end
  else
  begin
    Formulario.Visible := True;
    Formulario.BringToFront;
  end;
end;