No cierra un formulario

[ecfisa]

Que puedo estar haciendo mal ??

Hola Ibidi.

Es difícil saber sin ver el código, pero supongo que podrías hacer algo por el estilo:

Código Delphi [-]
...
function TMDIForm.Consulta(Dato: Variant): Boolean;
begin
  with TuQuery do
  begin
    SQL.Text:= 'SELECT * FROM TU_TABLA WHERE TU_CAMPO = :DATO';
    ParamByName('DATO').Value:= Dato;
    Open;
    Result:= not IsEmpty;
    Close;
  end;
end;

procedure TMDIForm.btnConsultarClick(Sender: TObject);
begin
  if not Consulta('DATO_QUE_NO_EXISTE') then Close;
end;

...

procedure TMDIForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

Saludos.

Edito: No había visto el mensaje de MartinS, básicamente es la misma idea.