anchor.diff:  function TDiocpBlockTcpClient.sendBuffer(buf: Pointer; len: cardinal): Integer;
   begin
     Result := FRawSocket.SendBuf(buf^, len);
  +
     CheckSocketResult(Result);
   end;
   
  
positive.code:   inherited Destroy;
  end;
  
  procedure TDiocpBlockTcpClient.CheckSocketResult(pvSocketResult: Integer);
  begin
    ///  Posix, fail return 0
    ///  ms_windows, fail return -1
    {$IFDEF POSIX}
    if (pvSocketResult = -1) or (pvSocketResult = 0) then
    begin
      RaiseLastOSError;
    end;
    {$ELSE}
    if (pvSocketResult = -1) then
    begin
      RaiseLastOSError;
    end;
    {$ENDIF}
  end;
  
negative.code:   {$ENDIF}
  
    ,Classes
    , SysConst;
  
  {$if CompilerVersion < 23}
  type
  