Пример сокетных соединений (пересылка буфера).

bClient: TClientSocket;
bServer: TServerSocket;
RichEdit: TRichEdit;
RadioGroup: TRadioGroup;
edAddress: TEdit;
btnGO: TButton;
edNick: TEdit;
btnSend: TButton;
edTxt: TEdit;
btnSys: TButton;

edAddress нам нужен для указания адреса сервера, если это будет клиент.
RichEdit - собственно поле для вывода всего: сообщения, etc.
RadioGroup - позволит нам выбрать тип приложения: сервер или клиент.
btgGo - кнопуля, с помощью которой активируем или уничтожаем сокет.
btnSend - посылает текстовое сообщение.
btnSys - посылает системное сообщение (так, для примера).
edNick и edTxt - Ваш ник и текст сообщения соответственно.

 TMes = packed record
 ID: Word; {ID = 0}
 Nick: String[20];
 Txt: String[200];
 end;
 TSys = packed record
 ID: Word; {ID = 1}
 Body: String[100];
 end;

procedure PctToBuf(var Packet; var buf; Size: Word);
var
 arPacket: array[1..MaxSize] of byte absolute Packet;
 arBuf: array[1..MaxSize] of byte absolute buf;
 i: Word;
begin
 for i:=1 to Size do
 arBuf[i]:=arPacket[i];
end;
procedure BufToPct(var Packet; var buf; Size: Word);
var
 arPacket: array[1..MaxSize] of byte absolute Packet;
 arBuf: array[1..MaxSize] of byte absolute buf;
 i: Word;
begin
 for i:=1 to Size do
 arPacket[i]:=arBuf[i];
end;

procedure TfmMain.btnGOClick(Sender: TObject);
begin
 if RadioGroup.ItemIndex=0 then
 if bClient.Active then
 bClient.Active:=False {Останавливаем клиента}
 else begin
 bClient.Address:=edAddress.Text;
 bClient.Active:=True; {Запускаем клиента}
 Application.ProcessMessages;
 end
 else
 if bServer.Active then begin
 bServer.Active:=False; {Останавливаем сервер}
 RichEdit.SelAttributes.Color:=clBlack;
 RichEdit.Lines.Add('>> Server closed');
 end
 else begin
 bServer.Active:=True; {Запускаем сервер}
 RichEdit.SelAttributes.Color:=clBlack;
 RichEdit.Lines.Add('>> Server started');
 end;
 {Далее меняем состояния компонент, интерфейс блин}
 if bClient.Active or bServer.Active then begin
 btnGo.Caption:='STOP';
 btnSend.Enabled:=True;
 btnSys.Enabled:=True;
 edAddress.ReadOnly:=True;
 RadioGroup.Enabled:=False;
 end
 else begin
 btnGo.Caption:='GO!';
 btnSend.Enabled:=False;
 btnSys.Enabled:=False;
 edAddress.ReadOnly:=False;
 RadioGroup.Enabled:=True;
 end;
end;

procedure TfmMain.btnSendClick(Sender: TObject);
var
 Mes: TMes;
 buf: array[1..SizeOf(TMes)] of byte;
 i: Word;
begin
 Mes.ID:=0;
 if bClient.Active then begin
 Mes.Nick:=edNick.Text;
 Mes.Txt:=edTxt.Text;
 PctToBuf(Mes,buf,SizeOf(TMes)); {В принципе, это совсем не нужно! Это я так, для наглядности}
 bClient.Socket.SendBuf(buf,SizeOf(TMes));
 {bClient.Socket.SendBuf(mes,SizeOf(TMes)); Вот так сразу тоже можно!}
 end
 else
 if bServer.Socket.ActiveConnections>0 then begin
 Mes.Nick:=edNick.Text;
 Mes.Txt:=edTxt.Text;
 PctToBuf(Mes,buf,SizeOf(TMes));
 for i:=0 to bServer.Socket.ActiveConnections-1 do
 bServer.Socket.Connections[i].SendBuf(buf,SizeOf(TMes));
 RichEdit.SelAttributes.Color:=clBlue;
 RichEdit.Lines.Add(Mes.Nick+': '+Mes.Txt);
 end;
end;

procedure TfmMain.btnSysClick(Sender: TObject);
var
 Sys: TSys;
 str: String;
 i: Word;
begin
 Sys.ID:=1;
 Str:='Fuck admin!'; {Тривиально, извините}
 InputQuery('Сообщение','Текст',Str);
 Sys.Body:=Str;
 if bClient.Active then
 bClient.Socket.SendBuf(sys,SizeOf(TSys))
 else
 if bServer.Socket.ActiveConnections>0 then begin
 for i:=0 to bServer.Socket.ActiveConnections-1 do
 bServer.Socket.Connections[i].SendBuf(sys,SizeOf(TSys));
 RichEdit.SelAttributes.Color:=clRed;
 RichEdit.Lines.Add('>> '+Sys.Body);
 end;
end;

procedure TfmMain.bServerClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var
 buf: array[1..MaxSize] of byte;
 Size: Word;
 ID: Word;
 i: Word;
 Sys: ^TSys;
 Mes: ^TMes;
begin
 Size:=Socket.ReceiveLength; {Принимаемое кол-во байт}
 Socket.ReceiveBuf(buf,Size); {Эта функция возвращает кол-во принятых байт.
 Можете сравнить с Size для корректности}
 BufToPct(ID,buf,2);
 case ID of
 0: begin
 New(Mes);
 BufToPct(Mes^,buf,Size);
 RichEdit.SelAttributes.Color:=clBlue;
 RichEdit.Lines.Add(Mes^.Nick+': '+Mes^.Txt);
 {Теперь отправим его всем}
 for i:=0 to bServer.Socket.ActiveConnections-1 do
 bServer.Socket.Connections[i].SendBuf(Mes^,Size);
 Dispose(Mes);
 end;
 1: begin
 New(Sys);
 BufToPct(Sys^,buf,Size);
 RichEdit.SelAttributes.Color:=clRed;
 RichEdit.Lines.Add('>> '+Sys^.Body);
 {Теперь отправим его всем}
 for i:=0 to bServer.Socket.ActiveConnections-1 do
 bServer.Socket.Connections[i].SendBuf(Sys^,Size);
 Dispose(Sys);
 end;
 end;
end;