Byte(TextPtr[0]) こうすればバイトになるだろ。
16進数に変換する方法は、自分で決めよう。
関数使うもよし、テーブル使って高速化するもよし。