void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
extern char cStr[512];
char *cBuf;
cBuf = (char *) malloc(100);
Form1->ClientSocket1->Socket->ReceiveBuf(cBuf,1);
if (AnsiStrPos(cBuf,"\n")){

//Form1->Memo1->Lines->Add(cBuf);
//if (Buf,"\n",1)!=NULL){
//Form1->Memo1->Lines->Add(cStr);
//delete cStr;

}
else {
memcpy(cStr,cBuf,2);
Form1->Memo1->Lines->Add(cStr[2]);
return cStr;
}