1) chr(0x64) - это значит один символ с кодом 100 (0x64 перевести в десятичный). У нас задается в FormatStr как 100
2) chr(length(encode_base64($myip, ""))) и остальные chr(length()) - длина последующей строки одним байтом. Использовать Convertor.IntToChar.
3) затем через chr(0x00) - сама строка (если написано encode_base64 то сконвертировать в base64)
Это всё соединяешь в FormatStr или StrCat, там где оно в коде идёт через точку. И посылаешь через TCP_Client.