anchor.diff:     acq^.err.callback(Self, acq^.err.data);
    acq^.toAcquire.Free();
    FreeMem(acq);
  + Self.changed := true;
   end;
   
   procedure TSouprava.AllLocoAcquiredOk(newLoks: TList<Integer>);
  
positive.code:   begin
     // vypocet smeru ze sipky
     if (Self.data.smer_L) then
       Self.smer := THVStanoviste.lichy
     else
       Self.smer := THVStanoviste.sudy;
    end;
  
   hvs := TStringList.Create();
  
negative.code: 
     try
       HVDb[addr].SetSpeedDir(Self.data.rychlost, direction,
                              TTrakce.Callback(), TTrakce.Callback(Self.HVComErr), Self);
     except
       on E:Exception do
         AppEvents.LogException(E, 'TSouprava.SetRychlostSmer');
  