Баг с ReceiveText (Связка компонентов ServerSocket-ClientSocket)

char buffer[MAX_COMPUTERNAME_LENGTH+1];//ћассив символов длиной равной длине названи¤ ѕ*
DWORD size;//ѕеременна¤ размерности в байтах

void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    size=sizeof(buffer);//ќпределение размера массива в байтах
    GetComputerName(buffer,&size);//«апись имени компьютера в массив
    ClientSocket1->Socket->SendText(buffer);
}

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket)
{
//При подключении клиента получаем текст с именем компьютера
//В этот же момент срабатывает ClientRead, потому там поставлено условие,
//чтобы лишние данные в таблицу не добавлялись
//Записывает в ListBox в формате: Имя ПК пользователя:номер выделенного сокета в сервере
AnsiString pc = Socket->ReceiveText();
int countCon = ServerSocket1->Socket->ActiveConnections - 1;
ListBox1->Items->Add(pc + ":" + String(ServerSocket1->Socket->Connections[countCon]->SocketHandle));
}

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket)
 
{
//Принятие зяавки от клиента
Socket->ReceiveBuf(&Mess,sizeof(Mess));
//Если первый символ фамилии не пустой - пришла заявка, иначе не обрабатывать эти данные
if ((Mess.fam[0]))
{
//Блок добавления записи в БД
ADOTable1->Insert();
ADOTable1->Fields->Fields[1]->AsString = String(Mess.pc);
ADOTable1->Fields->Fields[2]->AsString = String(Mess.fam) + ' ' + String(Mess.name[0]) + '.' + String(Mess.otch[0]) + '.';
ADOTable1->Fields->Fields[3]->AsString = String(Mess.otdel);
ADOTable1->Fields->Fields[4]->AsDateTime = Now();
ADOTable1->Fields->Fields[5]->AsString = Mess.problem;
ADOTable1->Fields->Fields[6]->AsString = Mess.podrobno;
ADOTable1->Fields->Fields[7]->AsBoolean = false;
Form1->ADOTable1->Post();
 
//Сортировка записей по дате после добавления
ADOTable1->Sort = "[Время/дата] DESC";
 
//Очистка структуры
strcpy(Mess.pc,"");
strcpy(Mess.fam,"");
strcpy(Mess.name,"");
strcpy(Mess.otch,"");
strcpy(Mess.otdel,"");
strcpy(Mess.problem,"");
strcpy(Mess.podrobno,"");
}
}