Edit1.Text:=IntToHex(ord(Edit1.Text),2);
Posted via ActualForum NNTP Server 1.4
'$'+IntToHex(ord(Edit1.Text),2)