Const
 cDelitel : String = '#end#';


procedure ClientDataProc(Socket:TCustomWinSocket; s:string);
begin
if Copy(s,1,2) = '#M' then begin
 Delete(s,1,2);
 ChatMemo.Lines.Add('['+TimeToStr(Time)+']  '+ Copy(s,1,Pos(';',s)-1)+'> '+
           Copy( s, Pos(';',s)+1, Length(s)-Pos(';',s) ) );
 Exit;
end;
end;

procedure TfrmMy.sClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
 s : string;
 i : integer;
begin
 s:=Socket.ReceiveText; // присваиваем s полученную строку из Socket
 if ClientBuf<>''
   then ClientBuf := ClientBuf+s  // в буфере был кусок какой-то стороки
   else ClientBuf := s;
 i:=0;
 repeat // разделяем строку, если одновременно пришло несколько
   i:=Pos(cDelitel,ClientBuf);   // ищем раздлелитель строк в буфере
   if i<>0 then begin   // найден разделитель строк
     s:=Copy(ClientBuf,1,i-1); // копируем одну пришедшую строку в s
     Delete(ClientBuf,1,i+Length(cDelitel)-1); // удаляем из буфера уже скопированную строку
     ClientDataProc(sClientSocket.Socket,s) // обрабатываем выделенную строку
   end;
 until i=0; // повторять, пока будет не найден разделитель строк
end;

procedure TfrmMy.TextEditKeyDown(Sender: TObject; var Key: Word;
         Shift: TShiftState);
var
 s:  string;
 i:  integer;
begin
 if Key = VK_RETURN then begin  // нажата клавиша Enter
   s := '#M'+NickName+';'+TextEdit.Text; // Добавляем наше имя (от кого) и само сообщение
   If sServerSocket.Active=True then  // проверка, в каком режиме находится программа
     For i:=0 to sServerSocket.Socket.ActiveConnections-1 do  // отправляем сообщение с сервера всем пользователям
       sServerSocket.Socket.Connections[i].SendText(s)
   else  // отправляем сообщение с клиента
     sClientSocket.Socket.SendText(s);
   TextEdit.Clear;  // очищаем TextEdit
 end;
 ActiveControl := TextEdit;
end;

procedure TfrmMy.sServerSocketClientRead(Sender: TObject;
         Socket: TCustomWinSocket);
var
 i     : Integer;
begin
 if Copy(s,1,2) = '#M' then begin  // обработка сервером
   for i := 0 to sServerSocket.Socket.ActiveConnections-1 do
     sServerSocket.Socket.Connections[i].SendText(s+cDelitel);
   Exit;
 end;
end;

procedure TfrmMy.sServerSocketClientRead(Sender: TObject;
        Socket: TCustomWinSocket);
var
i     : Integer;
begin
s:=Socket.ReceiveText;
Memo1.Lines.Add('['+TimeToStr(Time)+']  получил сообщение от клиента: '+s);
if Copy(s,1,2) = '#M' then begin  // обработка сервером
  for i := 0 to sServerSocket.Socket.ActiveConnections-1 do
    sServerSocket.Socket.Connections[i].SendText(s+cDelitel);
  Memo1.Lines.Add('['+TimeToStr(Time)+']  рассылаю сообщения клиентам ');
  Exit;
end;
end;

procedure Tfrm1.sServerSocketClientRead(Sender: TObject;
         Socket: TCustomWinSocket);
var
 s, from_, to_, color_, time_, temp_ : string;
 game_   : string[8];
 i,j     : Integer;
begin
 Memo1.Lines.Add('['+TimeToStr(Time)+'] handle='+IntToStr(Socket.SocketHandle));
 j:=sizeof(i);
 GetSockOpt(Socket.SocketHandle,SOL_SOCKET,SO_SNDBUF,@i,j);
 Memo1.Lines.Add('['+TimeToStr(Time)+'] SO_SNDBUF='+IntToStr(i));
 GetSockOpt(Socket.SocketHandle,IPPROTO_TCP,TCP_NODELAY,@i,j);
 Memo1.Lines.Add('['+TimeToStr(Time)+'] NO_DELAY установлен и ='+IntToStr(i));
 s := Socket.ReceiveText;
 Memo1.Lines.Add('['+TimeToStr(Time)+']  получил сообщение от клиента: '+s);

if (Copy(s,1,2) = '#M')then begin
   Memo1.Lines.Add('['+TimeToStr(Time)+'] вошли в процедуру #M');
   for i := 0 to sServerSocket.Socket.ActiveConnections-1 do
     sServerSocket.Socket.Connections[i].SendText(s+cDelitel);
   Delete(s,1,2);
   Memo1.Lines.Add('['+TimeToStr(Time)+']  рассылаю сообщения клиентам '+ Copy(s,1,Pos(';',s)-1)+'> '+Copy( s, Pos(';',s)+1, Length(s)-Pos(';',s) ) );
   Exit;
 end;

end;

procedure Tfrm1.sServerSocketGetSocket(Sender: TObject; Socket: Integer;
 var ClientSocket: TServerClientWinSocket);
var
 i, len : integer;
begin
 len:=sizeof(i);
 i:=0;
 SetSockOpt(Socket,SOL_SOCKET,SO_SNDBUF,@i,len);
 i:=1;
 SetSockOpt(Socket,IPPROTO_TCP,TCP_NODELAY,@i,sizeof(i));
end;

[14:33:11] handle=272
[14:33:11] SO_SNDBUF=0
[14:33:11] NO_DELAY установлен и =1
здесь идет задержка и потом вываливаются сразу оставшиеся строки
[14:33:11]  получил сообщение от клиента: #Mпервое сообщение      
[14:33:15] вошли в процедуру #M
[14:33:15]  рассылаю сообщения клиентам> первое сообщение

[14:33:11]  посылаю сообщение на сервер: первое сообщение
[14:33:11]  отослал
[14:33:15]  получил сообщение от сервера: #Mпервое сообщение#end#
[14:33:15] сообщение с сервера после оработки>первое сообщение

Memo1.Lines.Add('['+TimeToStr(Time)+'] NO_DELAY установлен и ='+IntToStr(i));
// здесь секунды клиента и сервера совпадают
s := Socket.ReceiveText;
// а здесь уже разница в 4-5с
Memo1.Lines.Add('['+TimeToStr(Time)+']  получил сообщение от клиента: '+s);

[14:33:11]  получил сообщение от клиента: #Mпервое сообщение      
[14:33:15] вошли в процедуру #M