Tengo un problema con la obtencion de decimales de un monto.
Código:
edtRazonSocial.Text := dmData.dbfProvee.FieldValues['Nom_pro'];
montoTotal := dmData.dbfCompras.FieldByName('Tot_odc').AsFloat;
partEntera := Trunc(montoTotal);
partDecimal := Trunc(100*Frac(montoTotal));
edtMonto.Text := Format('%n',[montoTotal]);
atxtMonto.Numero := partEntera;
edtMontoLetras.Text := atxtMonto.AsString + 'CON ' + Format('%.2d/100',[partDecimal]);
Estoy utilizando el componente ATexto, y quiero que me muestre en letras una cantidad, y que la parte decimal la exprese asi: 90/100 Dolares, pero me falla con algunos decimales puesto que me muestra 89/100 supongo que es el redondeo, alguien me puede ayudar por favor??.
Salu2.