[_(Sly)_]

Ну делай так:
-------SERVER-------
1. ServerSocket.Port:=123; так для наглядности
2. ServerSocket.Activate:=true;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var S:String;
begin
s:=Socket.ReceiveText();
Showmessage(S);
end;



------Client-------
1. ClientSocket1.Address:='1.1.1.1';
2. ClientSocket1.Port:=123;
3. ClientSocket1.Active:=true;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Showmessage('Connect...Ok');
ClientSocket1.Socket.SendText('HELLO');
end;


Простейшое соиденение которое передает строку HELLO!
Надеюсь чемто помог