Сокеты, "кривые байты"

#define recv_length_2 6;
byte recv_length;
char recvbuf[255];
 
void __fastcall TForm1::clientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
char ch[2];
Socket->ReceiveBuf(ch, 1);
recv_length = ch[0];
if (recv_length != recv_length_2) {msg = ""; msg += FormatDateTime("hh",Now()) + ":" + FormatDateTime("nn",Now())+ ":" + FormatDateTime("ss",Now()) + " : Неверная длина сообщения у сервера (тип сообщения 0x2)"; Memo1->Lines->Add(msg); Button1->Enabled = true; ComboBox1->Enabled = true; return; }
for (int i=0; i<recv_length; i++) {Socket->ReceiveBuf(ch, 1); recvbuf[i] = ch[0];}
msg = ""; msg += FormatDateTime("hh",Now()) + ":" + FormatDateTime("nn",Now())+ ":" + FormatDateTime("ss",Now()) + " : Принятые байты от сервера: ";
for (int i=0; i<recv_length_2; i++) {msg += IntToStr(recvbuf[i]) += " "; }
Memo1->Lines->Add(msg);
}

char sendbuf[255];
byte sendcount;
 
sendcount = 6;
sendbuf[0] = sendcount;  //в первом байте передаю "размер сообщения", т.к. у клиента Socket->ReceiveLength() возвратит неверное число байт, если их больше одного
sendbuf[1] = count_proc >> 8;
sendbuf[2] = count_proc & 255;
sendbuf[3] = count_modules >> 8;
sendbuf[4] = count_modules & 255;
sendbuf[5] = count_threads >> 8;
sendbuf[6] = count_threads & 255;
sendbuf[7] = 0; //терминирующий ноль
 
ServerSocket1->Socket->Connections[0]->SendBuf(sendbuf, sendcount+1);