anchor.diff:      function GetAdjustedTime : Cardinal;
       property TimeOffset : Integer read FTimeOffset;
       function GetMaxAllowedTimestampForNewBlock : Cardinal;
  +    property OffsetLimit : Integer read FOffsetLimit write FOffsetLimit;
     end;
   
     TProcessReservedAreaMessage = procedure (netData : TNetData; senderConnection : TNetConnection; const HeaderData : TNetHeaderData; receivedData : TStream; responseData : TStream) of object;
  
positive.code:   FTimesList := TPCThreadList<Pointer>.Create('TNetworkAdjustedTime_TimesList');
    FTimeOffset := 0;
    FTotalCounter := 0;
  end;
  
  destructor TNetworkAdjustedTime.Destroy;
  
negative.code:   end else begin
      FTimeOffset := PNetworkAdjustedTimeReg(list[list.Count DIV 2])^.timeOffset;
    end;
    if (FOffsetLimit>=0) and (Abs(FTimeOffset)>Abs(FOffsetLimit)) then begin
      if FTimeOffset>=0 then FTimeOffset := Abs(FOffsetLimit)
      else FTimeOffset := Abs(FOffsetLimit)*(-1);
    end;
    if (last<>FTimeOffset) then begin
      s := '';
      for i := 0 to list.Count - 1 do begin
  