поменял на

void __fastcall TForm2::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket)

{
int iBufSize = Socket->ReceiveLength();
char *Buf = new char [iBufSize + 1];
Socket->ReceiveBuf(Buf,iBufSize);
AnsiString Rtext=Buf;
Memo1->Lines->Add(UTF8Decode(Rtext));

}

теперь не доконца получает
пример запрос на яндекс