NMStrm, NMMsg - socket operation on non-socket

void __fastcall TForm1::NMMSGServ1MSG(TComponent *Sender,
      const AnsiString sFrom, const AnsiString sMsg)
{
TStream *st=new TMemoryStream();
AnsiString asStr="";
TStringList *slStrm;
slStrm = new TStringList;
int idx=StrToInt(sMsg);
switch (idx)
 {
 case 0:
  while( !DataSource1->DataSet->Eof)
  {
   asStr="";
   for(int i = 0; i<DataSource1->DataSet->Fields->Count; i++)
    asStr += DataSource1->DataSet->Fields->Fields[i]->AsString + "\t";
   slStrm->Add(asStr);
   DataSource1->DataSet->Next();
  }
  DataSource1->DataSet->First();
  break;
 case 1:
  while( !DataSource2->DataSet->Eof)
  {
   asStr="";
   for(int i = 0; i<DataSource2->DataSet->Fields->Count; i++)
    asStr += DataSource2->DataSet->Fields->Fields[i]->AsString + "\t";
   slStrm->Add(asStr);
   DataSource2->DataSet->Next();
  }
  DataSource2->DataSet->First();
  break;
 case 2:
  while( !DataSource3->DataSet->Eof)
  {
   asStr="";
   for(int i = 0; i<DataSource3->DataSet->Fields->Count; i++)
    asStr += DataSource3->DataSet->Fields->Fields[i]->AsString + "\t";
   slStrm->Add(asStr);
   DataSource3->DataSet->Next();
  }
  DataSource3->DataSet->First();
  break;
 case 3:
  while( !DataSource4->DataSet->Eof)
  {
   asStr="";
   for(int i = 0; i<DataSource4->DataSet->Fields->Count; i++)
    asStr += DataSource4->DataSet->Fields->Fields[i]->AsString + "\t";
   slStrm->Add(asStr);
   DataSource4->DataSet->Next();
  }
  DataSource4->DataSet->First();
  break;
 }
 
slStrm->SaveToStream(st);
NMStrm1->PostIt(st);
delete slStrm, st;
}

AnsiString unpack(const char* symbol, int j)
{
 AnsiString str="";
 while (symbol[j]!='\t' && symbol[j]!=NULL)
 {
  str=str+symbol[j];
  j++;
 }
 return str;
}
//--------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
int idx=ComboBox1->ItemIndex;
NMMsg1->PostIt(IntToStr(idx));
}
//--------------------------------------------------------------------------
void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender,
      const AnsiString sFrom, TStream *strm)
{
 TStringList *slStrm;
 slStrm = new TStringList;
 slStrm->LoadFromStream(strm);
 AnsiString st="",s="";
 int m=slStrm->Count, j, k, n;
 StringGrid1->RowCount=m+1;
 for (int i=1;i<=m;i++)
 {
  j=0;
  k=0;
  st=slStrm->operator [](i-1);
  n=strlen(st.c_str());
  do
  {
  s=unpack(st.c_str(),j);
  j=j+strlen(s.c_str())+1;
  StringGrid1->Cells[k][i]=s;
  k++;
  }
  while (j<n);
 }
}