anchor.diff:  
      try
        HVDb[addr].SetSpeedDir(Self.data.rychlost, direction,
  -                                     TTrakce.Callback(), TTrakce.Callback(Self.HVComErr), Self);
  +                            TTrakce.Callback(), TTrakce.Callback(Self.HVComErr), Self);
      except
        on E:Exception do
          AppEvents.LogException(E, 'TSouprava.SetRychlostSmer');
  
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:    acq^.err.callback(Self, acq^.err.data);
   acq^.toAcquire.Free();
   FreeMem(acq);
   Self.changed := true;
  end;
  
  procedure TSouprava.AllLocoAcquiredOk(newLoks: TList<Integer>);
  