TcpClient1 и TcpServer1

[Oleg0405]

Нужно связать две программы с помощью TcpClient1 и TcpServer1
от клиента к серверу получилось а обратно не знаю как

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TcpServer1->LocalPort="2000";
TcpServer1->Active=true;
TcpClient1->RemoteHost="127.0.0.1";
TcpClient1->RemotePort="2000";
TcpClient1->Active=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::TcpServer1Accept(TObject *Sender,
      TCustomIpClient *ClientSocket)
{
String sss=ClientSocket->Receiveln();
Memo1->Lines->Add(sss);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
TcpClient1->Connect();
TcpClient1->Open();
TcpClient1->Sendln(Edit1->Text);
TcpClient1->Close();



}
//---------------------------------------------------------------------------

Я новичок потихоньку разбираюсь

[Stilet]

А обратно точно так же
Клиент-сервер должен быть на всех твоих программах, которые ты хочешь связать в чат. Только тогда будет двусторонний обмен данными.

[Oleg0405]

Уважаемый Stilet я перечитал много книг и описывается в них только этот пример
а как получить ответ от сервера не могу понять
каждая программа должна быть и клиентом и сервером?

[Stilet]

каждая программа должна быть и клиентом и сервером?

Я бы именно так и делал. Вообще если не ошибаюсь сервер всетки может отвечать клиенту на запрос, но самостоятельно инициализировать запрос к клиенту врядли.
Клиент ведь не умеет прослушивать сеть.