anchor.diff:      end;
     Finally
       TLog.NewLog(ltdebug,CT_LogSender,'Finalizing');
  -    FIsGettingNewBlockChainFromClient := false;
  +    FLockGettingNewBlockChainFromClient.Release;
     end;
   end;
   
  
positive.code:   FNodeServersAddresses := TOrderedServerAddressListTS.Create(Self);
    FLastRequestId := 0;
    FNetConnections := TPCThreadList.Create('TNetData_NetConnections');
    FIsGettingNewBlockChainFromClient := false;
    FNewBlockChainFromClientStatus := '';
    FNodePrivateKey := TECPrivateKey.Create;
    FNodePrivateKey.GenerateRandomPrivateKey(CT_Default_EC_OpenSSL_NID);
  
negative.code: 
  function TNetData.IsGettingNewBlockChainFromClient(var status: AnsiString): Boolean;
  begin
    if FLockGettingNewBlockChainFromClient.TryEnter then begin
      try
        Result := False;
        status := '';
      finally
        FLockGettingNewBlockChainFromClient.Release;
      end;
    end else begin
      status := FNewBlockChainFromClientStatus;
      Result := True;
    end;
  end;
  
  procedure TNetData.SetMaxNodeServersAddressesBuffer(AValue: Integer);
  