Gracias luisgutierrezb y bismarck_sierra lo consegui cambiando:
Código:
var
montoTotal: Double;
partEntera: Integer;
partDecimal: Integer;
por:
Código:
var
montoTotal: Currency;
partEntera: Integer;
partDecimal: Integer;
y tambien obteniendo los decimales de la forma en que dijo bismarck_sierra:
Código:
partDecimal := Trunc((montoTotal - Int(montoTotal)) * 100);
Pero porque ocurre esto???, tanta es la diferencia entre los tipos Double y Currency??
Salu2 y gracias.