add function CountPercent(const Part, Entire : UInt64) : Byte;