Ayuda para validar un Dato de Tipo Boleano en funcion

[ecfisa]

Hola microbiano.

El problema supongo (ya que no indicas el tipo de la variable FCobroOk) pasa por que FCobroOk es de tipo Boolean y la estas comparando con el valor devuelto por un form modal que es de tipo TModalResult.

Creo que deberías hacer:

Código Delphi [-]
...
  with TPago.Create(Self) do
  try
    ShowModal
  finally
    FCobroOk:= ModalResult = mrOk; // FCobroOk=True si ModalResult = mrOk 
    if FCobroOk then
    // mejor sería: if ModalResult = mrOk then ...
       ...
    Free
  end;
 ...

Saludos.