pt 

ToBinString (TShortIntSysHelper)

pt 

ToHexString (TShortIntSysHelper)