[ApxaHGe1]

Код:

var
  Form1: TForm1;
  tmp,temp:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:='192.168.1.64';
ClientSocket1.Port:=1234;
ClientSocket1.Active:=true;
Memo1.Clear;
Memo2.Clear;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Memo1.Text);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
temp:=Socket.ReceiveText;
Memo2.Lines.Add(temp);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  I: Integer;
begin
tmp:=Socket.ReceiveText;
for I :=0  to ServerSocket1.Socket.ActiveConnections - 1 do
begin
ServerSocket1.Socket.Connections[i].SendText(tmp);
end;

end;