Ayuda para validar un Dato de Tipo Boleano en funcion

[ecfisa]

Hola microbiano.

Por lo que entiendo del código de BtonAceptarClick, sólo debe salir de FPagos cuando la función VerificaDatos da un resultado verdadero.

Entonces se me ocurre que en FPagos podrías hacer:

Código Delphi [-]
procedure TFPago.btnAceptarClick(Sender: TObject);
begin
  ModalResult:= Integer(VerificaDatos); 
  // Close;
end;

Si VerificaDatos es True implica que Integer(VerificaDatos) = 1, por lo tanto ModalResult = mrOk y sale de FPagos.
Si VerificaDatos es False implica que Integer(VerficaDatos) = 0, por lo tanto ModalResult = mrNone y queda en FPagos
Por último, si deseas que salga de FPago de todas formas, basta con agregar una línea llamando al método Close.

Y en el form que lo invocas:

Código Delphi [-]
  with TFPago.Create(Self) do
  try
    ShowModal
  finally
    if ModalResult = mrOk then // implica que VerificaDatos = True
     ...     
    Free
  end;

Saludos. ´