procedure TForm1.ServerGetThread(Sender: TObject;
 ClientSocket: TServerClientWinSocket;
 var SocketThread: TServerClientThread);
begin
 SocketThread := CServerThread.Create( FALSE, ClientSocket );
end;

Procedure CServerThread.ClientExecute;
var
REQUESTSIZE : integer;
fRequest : array [0..1024] of char;
ac,readlen : integer;
begin
 inherited FreeOnTerminate := TRUE;
 try
   fSocketStream := TWinSocketStream.Create( ClientSocket, 1000 );
   // 100000 - это таймаут в миллисекундах.
   try
     while ( not Terminated ) and ( ClientSocket.Connected ) do
       try
         // В это место обычно помещается код,
         // ожидающий входных данных, читающий из сокета или пишущий в него
         // Пример, приведённый ниже, показывает, что можно добавить в данную
         // секцию программы.
          FillChar( fRequest, REQUESTSIZE, 0 );
          ac := 0;
          repeat
           readlen := fSocketStream.read( fRequest[ac], 1024 );
           // считываем блоки по 1024 байт, до тех пор, пока буфер
           // не заполнится
           ac := ac+readlen;
          until
          (readlen = 0) or (ac = REQUESTSIZE);
       except
         on e:exception do
         begin
           // Если произошла ошибка, то закрываем сокет и выходим
           ClientSocket.Close;
           Terminate;
         end;
       end;
   finally
     fSocketStream.Free;
   end;
 except
   on e:exception do
   begin
     // Если произошла ошибка, то закрываем сокет и выходим
     ClientSocket.Close;
     Terminate;
   end;
 end;
end;

Procedure CServerThread.ClientExecute;
var
REQUESTSIZE : integer;
fRequest : array [0..1024] of char;
ac,readlen : integer;
begin
try
  fSocketStream := TWinSocketStream.Create( ClientSocket, 1000 );
  try
    while ( not Terminated ) and ( ClientSocket.Connected ) do
      try
         FillChar( fRequest, REQUESTSIZE, 0 );
         ac := 0;
         repeat
          readlen := fSocketStream.read( fRequest[ac], 1024 );
          ac := ac+readlen;
         until
         (readlen = 0) or (ac = REQUESTSIZE);
      except
        on e:exception do
        begin
          ClientSocket.Close;
        end;
      end;
  finally
    fSocketStream.Free;
  end;
except
  on e:exception do
  begin
    ClientSocket.Close;
  end;
end;
end;

ac : integer;

                   readlen := fSocketStream.read( fRequest[ac], 1024 );
                   ac := ac+readlen;