function IntToHex(Value: Integer; Digits: Integer): string; overload;
function IntToHex(Value: Int64; Digits: Integer): string; overload;
Description
IntToHex converts a number into a string containing the number's hexadecimal (base 16) representation. Value is the number to convert. Digits indicates the minimum number of hexadecimal digits to return.
Function MyHexToTen(SStr:String):String;
var
i:Integer;
TStr:String;
begin
for i:=1 to Length(SStr) div 2 do
TStr:=TStr+Chr(Strtoint('$'+Sstr[2*i-1]+Sstr[2*i]));