anchor.diff:        if (b=1) then begin
           DataBuffer.Read(c,SizeOf(c));
           start:=c;
  -        max:=c;
  +        max:=1; // Bug 3.0.1 (was c instead of fixed 1) 
         end else begin
           DataBuffer.Read(c,SizeOf(c));
           start:=c;
  
positive.code:             If Not IsMyBlockchainValid then begin
                TNode.Node.Bank.Storage.EraseStorage;
              end;
              Connection.Send_GetBlocks(TNode.Node.Bank.BlocksCount,100,request_id);
              Result := true;
            end else begin
  
negative.code:   FNetClientsDestroyThread := TNetClientsDestroyThread.Create(Self);
    FNetworkAdjustedTime := TNetworkAdjustedTime.Create;
    FMaxNodeServersAddressesBuffer:=(CT_MAX_NODESERVERS_BUFFER DIV 2);
    FMinServersConnected:=CT_MinServersConnected;
    FMaxServersConnected:=CT_MaxServersConnected;
    If Not Assigned(_NetData) then _NetData := Self;
  end;
  
  