[onlytk]

Gracias luisgutierrezb y bismarck_sierra lo consegui cambiando:

var
    montoTotal: Double;
    partEntera: Integer;
    partDecimal: Integer;

por:

var
    montoTotal: Currency;
    partEntera: Integer;
    partDecimal: Integer;

y tambien obteniendo los decimales de la forma en que dijo bismarck_sierra:

partDecimal := Trunc((montoTotal - Int(montoTotal)) * 100);

Pero porque ocurre esto???, tanta es la diferencia entre los tipos Double y Currency??

Salu2 y gracias.