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; if FCobroOk then
...
Free
end;
...
Saludos.