[BrunoBsso]

Empezado por roman

La respuesta está desde mi primer mensaje.

// Saludos

Empezado por roman

Lo que puedes hacer es lanzar enviar un mensaje personalizado con PostMessage y en el manejado de dicho mensaje mandar cerrar la ventana. Busca AfterShow o CM_AFTERSHOW en los foros para ver un ejemplo de lo que digo.

Ahí tenés la solución de roman que es pasándole messages.

Empezado por BrunoBsso

Código Delphi [-]
//Form1 llama a Form4 en un OnClick de cualquier botón
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form4.Show;
end;

//Pero en vez de llamarlo podría verificar NVacio = 1 antes
procedure TForm1.Button1Click(Sender: TObject);
begin
  if NOT(NVacio = 1) then
    Form4.Show;
end;

Ahí tenés mi solución que es verificar antes de llamar al formulario.
Las dos te van a andar perfecto, parece que no las leíste.