ServerSocket и ReceiveBuf. Двойное отправление

struct TMess
{
 char fam[40];
 char name[40];
 char otch[40];
 char otdel[100];
 char problem[100];
 char podrobno[5000];
 char IP[20];
}Mess;
 
.....
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
Socket->ReceiveBuf(&Mess,sizeof(Mess));
 
StringGrid1->RowCount = rowCount;
StringGrid1->Cells[0][rowCount] = Mess.fam;
StringGrid1->Cells[1][rowCount] = Mess.otdel;
StringGrid1->Cells[2][rowCount] = Now();
StringGrid1->Cells[3][rowCount] = Mess.problem;
StringGrid1->Cells[4][rowCount] = Mess.podrobno;
StringGrid1->Cells[5][rowCount] = Mess.IP;
 
//Блок, который добавлял в Мемо записи как на скрине. Необязательная часть.
Memo1->Lines->Add(rowCount);
Memo1->Lines->Add(Mess.otdel);
Memo1->Lines->Add(Mess.problem);
 
//Увеличивает счетчик строк StringGrid
rowCount++;
}

struct TMess
{
 char fam[40];
 char name[40];
 char otch[40];
 char otdel[100];
 char problem[100];
 char podrobno[5000];
 char IP[20];
}ClientMess;
 
.....
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
strcpy(ClientMess.fam,Edit1->Text.c_str());
strcpy(ClientMess.name,Edit2->Text.c_str());
strcpy(ClientMess.otch,Edit3->Text.c_str());
strcpy(ClientMess.otdel,Edit4->Text.c_str());
strcpy(ClientMess.problem,ComboBox1->Text.c_str());
strcpy(ClientMess.podrobno,Memo1->Lines->GetText());
strcpy(ClientMess.IP,Powersock1->LocalIP.c_str());
 
ClientSocket1->Socket->SendBuf(&ClientMess,sizeof(ClientMess));
}