procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
 Edit1.Text:=ClientSocket.ReceiveLn;     // получили строку от клиента
 ClientSocket.SendLn('Привет Клиенту!'); // посылаем ему ответ
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 TcpServer1.LocalHost:='127.0.0.1';
 TcpServer1.LocalPort:='8888';
 TcpServer1.Active:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TcpClient1.RemoteHost:='127.0.0.1';
 TcpClient1.RemotePort:='8888';
 if TcpClient1.Connect  then 
  begin
   TcpClient1.SendLn('Привет Серверу!'); // послали привет серверу
    Edit1.Text:=TcpClient1.ReceiveLn();   // ждем ответ
   TcpClient1.Disconnect; 
 end
 else MessageBox(Handle, 'Сервер не найден!', 'Error', 16);
end;

procedure TForm1.Button1Click(Sender: TObject);
  var mes: string;
begin
  mes := 'r';
  tcpclient1.active := true;;
  tcpclient1.Sendln(mes);
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
showmessage('кто-то в дверь стучит');
if tcpserver1.receiveln = 'r' then showmessage('HI');
end;