como tomo en cuenta los decimales cuando son ceros.......

[LizVazquez]

ayuda por favor

No entiendo llevo varios dias tratando de que mi variable idecimas tome en cuenta 2 00 y solo toma uno y cuando debe de ser 01 al 09 solo toma el numero y no el cero , por favor apiadense de mi y ayudenme

por favor ................................
gracias

cNumero := Trim(Format('%12.00f', [Int(Numero)]));
cNumero := StringOfChar('0', 12 - Length(cNumero)) + cNumero;
iDecimas := Trunc(Frac(Numero) * 100) + 0.5);

este es el codigo que estoy utilizando y no puedo terminar