Problema con obtencion de decimales

[onlytk]

Tengo un problema con la obtencion de decimales de un monto.

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.