anchor.diff:   inherited Create();
    Self.speedBuffer := nil;
    Self.findex := index;
  - Self.data.podj := TObjectDictionary<Integer, TPOdj>.Create([doOwnsValues]);
  + Self.data.podj := TDictionary<Integer, TPOdj>.Create();
    Self.LoadFromPanelStr(panelStr, Usek, OblR);
   end;//ctor
   
   destructor TSouprava.Destroy();
   begin
    Self.ReleaseAllLoko();
  + Self.ClearPOdj();
    Self.data.podj.Free();
  +
    inherited;
   end;//dtor
   
  
positive.code:  if ((not podj.rel_enabled) and (not podj.abs_enabled)) then
    begin
     if (Self.data.podj.ContainsKey(usekid)) then
       Self.data.podj.Remove(usekid);
     FreeAndNil(podj);
    end else begin
     Self.data.podj.AddOrSetValue(usekid, podj);
     podj := nil;
    end;
  
negative.code: end;
  
  procedure TSouprava.ClearPOdj();
  var podj:TPOdj;
  begin
   for podj in Self.data.podj.Values do
     podj.Free();
  
   Self.data.podj.Clear();
  end;
  
  