anchor.diff:   if ((not podj.rel_enabled) and (not podj.abs_enabled)) then
     begin
      if (Self.data.podj.ContainsKey(usekid)) then
  +    begin
  +     Self.data.podj[usekid].Free();
        Self.data.podj.Remove(usekid);
  +    end;
      FreeAndNil(podj);
     end else begin
  +   if (Self.data.podj.ContainsKey(usekid)) then
  +     Self.data.podj[usekid].Free();
      Self.data.podj.AddOrSetValue(usekid, podj);
      podj := nil;
     end;
  
positive.code:    cilovaOR:TObject;
  
     hlaseniPrehrano:boolean;
     podj:TObjectDictionary<Integer, TPOdj>;  // id useku : predvidany odjezd
    end;//TSoupravaData
  
    TSouprava = class
  
negative.code: 
  procedure TSouprava.RemovePOdj(usekid:Integer);
  begin
   Self.data.podj[usekid].Free();
   Self.data.podj.Remove(usekid);
  end;
  
  