anchor.diff:      FPort: Integer;
       FRawSocket: TRawSocket;
       FReadTimeOut: Integer;
  +    FSendTimeOut: Integer;
       function GetActive: Boolean;
       procedure SetActive(const Value: Boolean);
   
  
positive.code:   inherited Create(AOwner);
    FRawSocket := TRawSocket.Create;
    FReadTimeOut := 30000;
  end;
  
  destructor TDiocpBlockTcpClient.Destroy;
  
negative.code:   finally
      if not FActive then
      begin
        FRawSocket.Close(False);
      end;
    end;
  end;
  
  