[}{ОТТ@БЫЧ]

Я делаю это с помощью компонента TSocketServer/Client. В Delphi7 установить: delphi7\bin\dclsockets70.bpl. Компоненты>Установить пакет, в окне кликай на "Добавть" ищи по этому пути. После установки они появятся во вкладке Internet.
сервер:

Код:

.....
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket); //Принятие текста
 var s:string;
begin
s:=Socket.ReceiveText;
ShowMessage(s);
end;
...
procedure TForm1.Button1Click(Sender: TObject); //Посылка всем
var i:integer; s:string;
begin
s:='Delphi';
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
    ServerSocket1.Socket.Connections[i].SendText(s);
end;
...

Клиент аналагично:

Код:

....
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket); //Принятие от сервера
  var s:string;
begin
s:=Socket.ReceiveText;
ShowMessage(s);
end;
...
procedure TForm1.Button1Click(Sender: TObject); //Посылка
var s:string;
begin
s:='Delphi';
ClientSocket1.Socket.SendText(s);
end;
...

Есть еще Indy компоненты... но мне стандартные больше Но это дело каждого...