сервер:
procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Port    := 777;  {Указываем порт, который будет слушать сервер}
  ServerSocket1.Active  := True; {Активизируем сервер}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ServerSocket1.Active := False; {Выключаем сервер}
 ServerSocket1.Close; {Закрываем соединение}
 Close; {Завершаем программу}
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var
 S: String;
 I: Integer;
begin
 {Добавляем к строке сообщения клиента идентификатор его сокета}
 S := InTtoStr(Socket.SocketHandle) + '>' + Socket.ReceiveText;
 ListBox1.Items.Add(S); {Добавляем сообщение в список}
 {Перебираем все установленные соединения}
 For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
    {Проверяем - если идентификатор очередного сокета не совпадает
     с идентификатором сокета, приславшего сообщение, то...}
    if ServerSocket1.Socket.Connections[i].SocketHandle <> Socket.SocketHandle then
      {... посылаем очередной клиентской программе новое сообщение}
      ServerSocket1.Socket.Connections[i].SendText(S);
end;

клиент:
procedure TForm1.Button1Click(Sender: TObject);
{
 Подключение к серверу
}
begin
ClientSocket1.Address := Edit2.Text; {Адрес сервера}
ClientSocket1.Port := StrToInt(Edit3.text); {Порт сервера}
{Если ClientSocket1 не включен, то...}
if not ClientSocket1.Active then  
  ClientSocket1.Active := True; {..включаем его}
end;

procedure TForm1.FormDestroy(Sender: TObject);
{
 Закрытие программы
}
begin
 ClientSocket1.Active := False; {Выключаем клиента}
 ClientSocket1.Close; {Закрываем сокет}
 Close; {Закрываем программу}
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
 Socket: TCustomWinSocket);
{
 Обработка данных от сервера
}
begin
 {Добавляем новое сообщение от сервера в список}
 Listbox1.Items.Add(Socket.ReceiveText);
end;

procedure TForm1.Button2Click(Sender: TObject);
{
 Послать сообщение
}
begin
 {Если сообщение не пусто, то...}
 If Edit1.Text <> '' then
   ClientSocket1.Socket.SendText(Edit1.text); {..посылаем его на сервер}
 Edit1.Text := ''; {Очищаем поле ввода}
end;