anchor.diff:  
   procedure TSouprava.RemovePOdj(usekid:Integer);
   begin
  + Self.data.podj[usekid].Free();
    Self.data.podj.Remove(usekid);
   end;
   
  
positive.code:  inherited Create();
   Self.speedBuffer := nil;
   Self.findex := index;
   Self.data.podj := TObjectDictionary<Integer, TPOdj>.Create([doOwnsValues]);
   Self.LoadFromPanelStr(panelStr, Usek, OblR);
  end;//ctor
  
  destructor TSouprava.Destroy();
  begin
   Self.ReleaseAllLoko();
   Self.data.podj.Free();
   inherited;
  end;//dtor
  
  
negative.code:  Self.speedBuffer := nil;
   Self.changed := false;
   Self.findex := index;
   Self.data.podj := TDictionary<Integer, TPOdj>.Create();
   Self.LoadFromFile(ini, section);
   Self.data.hlaseniPrehrano := false;
  end;//ctor
  