{ Пытаемся взять память для буфера }
    Buff := GetMemory(BuffSize);
    if (Buff = nil) then raise Exception.Create('Error! Cannot get memory!');
    Size := 0;
    Stream.Position := 0;
    Resp := '';
    try
      Repeat
        { В случае таймаута ожидания данных - выходим }
        if not mySock_WaitRecv(Sock, TmSec, TmMillisec) then Exit;
        { Чистим память буфера }
        ZeroMemory(Buff, BuffSize);
        { Принимаем данные }
        iSize := mySock_Recv(Sock, Buff, BuffSize);
        { В случае ошибки - выходим }
        if (iSize  0) then
                            begin
                              { Пример записи принятых данных в поток }
                              Stream.Write(Buff^, iSize);
                              { Пример добавления принятых данных в строку }
                              Resp := Resp + Copy(Buff, 1, iSize);
                              { Увеличиваем счётчик всего принятых байт }
                              Inc(Size, iSize);
                            end;
      Until (iSize = 0);
    finally
      FreeMemory(Buff);
    end;

unit mySockLib;

interface

uses
  Windows, WinSock2;

type
  TSocket = DWORD;

function mySock_Startup: Integer;
function mySock_Open(Host: String; Port: Word): TSocket;
function mySock_SetTimeout(Sock: TSocket; millisec: Integer): Integer;
function mySock_SetBlockMode(Sock: TSocket; NoneBlock: Boolean): Integer;
function mySock_WaitSend(Sock: TSocket; sec: Integer = 15; millisec: Integer = 0): Boolean;
function mySock_WaitRecv(Sock: TSocket; sec: Integer = 15; millisec: Integer = 0): Boolean;
function mySock_Send(Sock: TSocket; Buff: Pointer; Size: Integer): Integer;
function mySock_Recv(Sock: TSocket; Buff: Pointer; Size: Integer): Integer;
function mySock_Close(Sock: TSocket): Integer;
function mySock_Cleanup: Integer;
procedure mySock_GetLastError(var ErrCode: Integer; var ErrStr: String);

implementation

function mySock_Startup: Integer;
var
  wData: TWSAData;
begin
  Result := WSAStartup($0202, wData);
end;

function mySock_Open(Host: String; Port: Word): TSocket;
var
  Sock: TSocket;
  HostEnt: PHostEnt;
  SockAddr: TSockAddrIn;
begin
  Result := 0;
  HostEnt := GetHostByName(PChar(Host));
  if (HostEnt = nil) then Exit;
  Sock := Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
  if (Sock = INVALID_SOCKET) then Exit;
  ZeroMemory(@SockAddr, SizeOf(SockAddr));
  With SockAddr do
    begin
      sin_family := AF_INET;
      sin_port := HToNS(Port);
      With sin_addr, HostEnt^ do
        s_addr := PDWORD(h_addr^)^;
    end;
  if (Connect(Sock, @SockAddr, SizeOf(SockAddr)) <> 0) then
                                                           begin
                                                             CloseSocket(Sock);
                                                             Exit;
                                                           end;
  Result := Sock;
end;

function mySock_SetTimeout(Sock: TSocket; millisec: Integer): Integer;
var
  tv: TTimeVal;
begin
  tv.tv_sec := 0;
  tv.tv_usec := millisec;
  Result := setsockopt(Sock, SOL_SOCKET, SO_RCVTIMEO, @tv, SizeOf(tv));
end;

function mySock_SetBlockMode(Sock: TSocket; NoneBlock: Boolean): Integer;
var
  iMode: DWORD;
begin
  iMode := DWORD(NoneBlock);
  Result := IOCtlSocket(Sock, FIONBIO, iMode);
end;

function mySock_WaitSend(Sock: TSocket; sec: Integer = 15; millisec: Integer = 0): Boolean;
var
  FDSet: TFDSet;
  tv: TTimeVal;
begin
  Result := False;
  FD_ZERO(FDSet);
  FD_SET(Sock, FDSet);
  tv.tv_sec := sec;
  tv.tv_usec := millisec * 1000;
  if (select(0, nil, @FDSet, nil, @tv) = 1) then Result := True;
end;

function mySock_WaitRecv(Sock: TSocket; sec: Integer = 15; millisec: Integer = 0): Boolean;
var
  FDSet: TFDSet;
  tv: TTimeVal;
begin
  Result := False;
  FD_ZERO(FDSet);
  FD_SET(Sock, FDSet);
  tv.tv_sec := sec;
  tv.tv_usec := millisec * 1000;
  if (select(0, @FDSet, nil, nil, @tv) = 1) then Result := True;
end;

function mySock_Send(Sock: TSocket; Buff: Pointer; Size: Integer): Integer;
begin
  Result := send(Sock, Buff^, Size, 0);
end;

function mySock_Recv(Sock: TSocket; Buff: Pointer; Size: Integer): Integer;
begin
  Result := recv(Sock, Buff^, Size, 0);
end;

function mySock_Close(Sock: TSocket): Integer;
begin
  Result := CloseSocket(Sock);
end;

procedure mySock_GetLastError(var ErrCode: Integer; var ErrStr: String);
begin
  ErrCode := WSAGetLastError;
  Case ErrCode of
   0: ErrStr := 'Ошибки нет';
   WSANOTINITIALISED: ErrStr := 'Нужно сначала вызвать функцию WSASturtup';
	 WSAENETDOWN: ErrStr := 'Проблема с сетью';
	 WSAEADDRINUSE: ErrStr := 'Указанный адрес уже используется';
	 WSAEPROTONOSUPPORT: ErrStr := 'Протокол не поддерживается';
	 WSAEPROTOTYPE: ErrStr := 'Некорректный протокол для данного типа сокета';
	 WSAEFAULT: ErrStr := 'Параметры name и namelen не соответствуют данной адресации';
	 WSAEINPROGRESS: ErrStr := 'Уже выполняется операция в блокирующем режиме';
	 WSAEINVAL: ErrStr := 'Сокет уже связан с адресом';
   WSAESOCKTNOSUPPORT: ErrStr := 'Некорректный сокет для данной адресации';
	 WSAENOBUFS: ErrStr := 'Недостаточно памяти';
	 WSAENOTSOCK: ErrStr := 'Неверный дескриптор сокета';
   WSAEISCONN: ErrStr := 'Сокет уже подключён';
   WSAEMFILE: ErrStr := 'Нет больше доступных дескрипторов';
   else ErrStr := 'Неизвестная ошибка';
  end;
end;

function mySock_Cleanup: Integer;
begin
  Result := WSACleanup;
end;
end.