1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
begin
        ClientSocket1.Address := Edit1.Text;
        ClientSocket1.Active := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
        Clientsocket1.Socket.Sendtext( 'Hello World');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
        ShowMessage('Client has connected!');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
        ShowMessage( Socket.ReceiveText);
end;					

1:

ServerSocket1.Active := true;					

1:

ShowMessage(Socket.RemoteAddress);