如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils;

FunctionHexToDec(constValue:Integer):string;