баги в локальной сети

sprintf(b,"%s %s %s %s %s %s %s %s %s %s %s %s",a1,a2,a3,a4,a5,a[0],a[1],a[2],a[3],a[4],a[5],a[6]); //строка с разными переменными предварительно записанными в массивы char 
String str = b;
ServerSocket1->Socket->Connections[0]->SendText(str);

ASD = ClientSocket1->Socket->ReceiveText().c_str();

ReceiveText().c_str();

//----------------------Передача----------------------------------------------
ServerSocket1->Socket->Connections[i]->SendText(S);// Передача
//...
//----------------------Приём----------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
AnsiString S = Socket->ReceiveText();
//...
}
//------------------------------------------------------------

ClientSocket1->Socket->ReceiveText();

Socket->ReceiveText()

Form1->ClientSocket1->Socket->ReceiveText();

static char* ASD = new char[36];

#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdContext"
#pragma link "IdCustomTCPServer"
#pragma link "IdTCPClient"
#pragma link "IdTCPConnection"
#pragma link "IdTCPServer"