anchor.diff:  begin
     Try
       {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,ClassName,'Destroying '+Classname+' '+IntToHex(PtrInt(Self),8));{$ENDIF}
  -
       Connected := false;
  -
  +  Finally
       TNetData.NetData.NodeServersAddresses.DeleteNetConnection(Self);
  -  Finally
       TNetData.NetData.FNetConnections.Remove(Self);
     End;
     TNetData.NetData.UnRegisterRequest(Self,0,0);
  
positive.code:         TLog.NewLog(ltDebug,ClassName,'Destroying NetClients: '+inttostr(l_to_del.Count));
          for i := 0 to l_to_del.Count - 1 do begin
            Try
              DebugStep := 'Destroying NetClient '+TNetConnection(l_to_del[i]).ClientRemoteAddr;
              TNetConnection(l_to_del[i]).Free;
            Except
              On E:Exception do begin
                TLog.NewLog(ltError,ClassName,'Exception destroying TNetConnection '+IntToHex(PtrInt(l_to_del[i]),8)+': ('+E.ClassName+') '+E.Message );
  
negative.code: procedure TNetClientsDestroyThread.BCExecute;
  Var l,l_to_del : TList<TNetConnection>;
    i : Integer;
    LNetConnection : TNetConnection;
  begin
    l_to_del := TList<TNetConnection>.Create;
    Try
  