anchor.diff:   Self.speedBuffer := nil;
    Self.changed := false;
    Self.findex := index;
  - Self.data.podj := TObjectDictionary<Integer, TPOdj>.Create([doOwnsValues]);
  + Self.data.podj := TDictionary<Integer, TPOdj>.Create();
    Self.LoadFromFile(ini, section);
    Self.data.hlaseniPrehrano := false;
   end;//ctor
  
positive.code:    cilovaOR:TObject;
  
     hlaseniPrehrano:boolean;
     podj:TObjectDictionary<Integer, TPOdj>;  // id useku : predvidany odjezd
    end;//TSoupravaData
  
    TSouprava = class
  
negative.code:  inherited Create();
   Self.speedBuffer := nil;
   Self.findex := index;
   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
  
  