Procedimiento no hace nada al llamarlo desde otra unidad y desde la misma unida si

[webmasterplc]

buenas tengo un procedimiento que uso para hacer un calculo y llamar otras funciones, el cual lo tengo declarado en interface y lo leo desde otras unidades, el mismo lo llamo y no hace nada, pero si coloco contenido del procedimiento en un boton funciona fino
el procedimiento esta en el

form1tengo el cprocedimiento

Código Delphi [-]
procedure llenaretiqueta(subtotal:Currency);

   begin

    subtotal:=datos.sqcalcularcoti.FieldByName('totalcoti').AsCurrency;
    formeditarcot.etsubtotal.Caption:=FormatCurr('#0,.00',subtotal);
    iva:=(subtotal*0.12);
    formeditarcot.etiva.Caption:=FormatCurr('#0,.00',iva);
    total:=(subtotal+iva);
    formeditarcot.ettotal.Caption:=FormatCurr('#0,.00',total);
    actualizarmontos(documentonro,total,iva,subtotal);

   end;

solo le paso un parametro en formato moneda

lo llamo desde form2, form 2 lo llame de form1 ambos showmodal lo llamo y mando a cerrar el form.
ahora desde el mismo form 1 coloco un nboton y funciona bien

Código Delphi [-]
procedure Tformeditarcot.btnetiquetasClick(Sender: TObject);
begin
subtotal:=datos.sqcalcularcoti.FieldByName('totalcoti').AsCurrency;
etsubtotal.Caption:=FormatCurr('#0,.00',subtotal);
iva:=(subtotal*0.12);
etiva.Caption:=FormatCurr('#0,.00',iva);
total:=(subtotal+iva);
ettotal.Caption:=FormatCurr('#0,.00',total);
actualizarmontos(documentonro,total,iva,subtotal);
end;