[microbiano]

bien pues resulta que despues de que todo funcionaba de maravilla, ahora resulta que siempre
no funcion tratare de describir lo que paso en un form tengo un boton con la siguiente informacion, aqui el form se llama Fcobro

Código Delphi [-]
if GridResultado.SelectedRows.Count > 0 then
  begin
   CalculaImportes;
   with TFPago.Create(Self) do
    try
     ShowModal;
    finally
     FcobroOk:=Pago.result;//aqui es donde paso el valor de la variable result del form Fpago 
     Free;
     RealizaCobro;//este procedimiento valida si la variable Fcobro ok es verdadera 
con esta instruccion if (Fcobrook) then pero no funciona y cuando lo ejecuto resulta que la variable Pago.Result no trae nadad
    end;
  end;

en este resulta que lo unico que hago es esperar el resultado de una variable de tipo Boolean
de otro form en el que hago lo siguiente, este es el boton de aceptar en el segundo form de nombre Fpago

Código Delphi [-]
procedure TFPago.BtonAceptarClick(Sender: TObject);
begin
 if not (VerificaDatos) then
  begin
    Exit;
  end
 else
  begin
    close;
  end;   
end;

y esta es la funcion para validar los datos

Código Delphi [-]
function TFPago.VerificaDatos:Boolean;
var wpago,wcambio,wresultadoouble;
 Bverifica:Boolean;
begin
 Bverifica:=True;
 wpago:=TxtPago.Value;

 if TxtFolio.Value=0 then
  begin
   Application.MessageBox('Proporciona el numero de Folio del Recibo',PChar(Application.Title), MB_OK + MB_ICONERROR);
   TxtFolio.SetFocus;
   Bverifica := False;
   Exit;
  end;
 if TxtPago.Value=0 then
  begin
   Application.MessageBox('Proporciona la cantidad con la que se paga',PChar(Application.Title), MB_OK + MB_ICONERROR);
   TxtPago.SetFocus;
   Bverifica := False;
   Exit;
  end;
  if wpagothen
   begin
    Application.MessageBox('Con el importe Proporcionado con cubre el Total del Pago',PChar(Application.Title), MB_OK + MB_ICONERROR);
    TxtPago.SelectAll;
    TxtPago.SetFocus;
    Bverifica := False;
    Exit;
   end
  else
   begin
    wresultado:=wpago-Wtotal;
    TxtCambio.value:=wresultado;
   end;
   Result:=Bverifica;// aqui paso la variable a Result que es te tipo boolean y es publica.
end;

espero me puedan ayudar, de antemano muchas gracias, a resumidas cuentas
se pierde el valor de la variable result cuando la paso a FcobroOk.