Código Delphi [-] vTot.Text := FloatToStr( vCtd.AsFloat * vUni.AsCurrency );
vTot.Text := FloatToStr( vCtd.AsFloat * vUni.AsCurrency );