var crypted : string; decrypted : integer; begin crypted := IntToHex(500); decrypted := StrToInt('$' + crypted); end;