Socket->SendText

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,TCustomWinSocket *Socket)
{
 String s = Socket->ReceiveText();  
 String c = s.SubString(1,2);         
 String a;                           
 if (c == "#A")
    {
    ShowMessage("All string");
 
    IBQuery1->First();
    for (int i=0; i<IBQuery1->RecordCount; i++)
        {
        a = "#A1";  
        for (int j=1; j<IBQuery1->FieldCount; j++)
            {
            a = a + IBQuery1->Fields->Fields[j]->AsString + ';';
            }
        a = a +"\r\n";
        Socket->SendText(a);
        IBQuery1->Next();
        }
}

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
 String s = Socket->ReceiveText();
 String c = s.SubString(1,3);
 int i, j;
 
 if (c == "#A1")
    {
    s.Delete(1,3);
    i=0;                           
    j = StringGrid1->RowCount-1; 
    while (s.Pos(';')!=0)
        {
        StringGrid1->Cells[i][j]= s.SubString(1, s.Pos(';')-1);
        s.Delete(1, s.Pos(';'));
        i++;
        }
    StringGrid1->RowCount++;
    }
}