[ContraVeneno]

Hombre, amigo, te la estás complicando demasiado:

Código Delphi [-]
ot.AsAsFloat := vCtd.AsFloat*vUni.AsFloat;
// o lo que es mas o menos lo mismo, pero sin tantos decimales
ot.AsCurrency := vCtd.AsCurrency*vUni.AsCurrency;

//funciona igual para asignar valores:
vCtd.AsCurrency := UnDatamodule.UnDataset.FieldByname('UnCampoMoneda').AsCurrency;

El componente TjvValidateEdit, soporta: AsFloat, AsInteger, AsString, AsCurrency y no recuerdo que más.