anchor.diff:    begin
      // vypocet smeru ze sipky
      if (Self.data.smer_L) then
  -     Self.smer := THVStanoviste.lichy
  +     Self.data.smer := THVStanoviste.lichy
      else
  -     Self.smer := THVStanoviste.sudy;
  +     Self.data.smer := THVStanoviste.sudy;
     end;
   
    hvs := TStringList.Create();
  
positive.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');
  
negative.code:    acq^.err.callback(Self, acq^.err.data);
   acq^.toAcquire.Free();
   FreeMem(acq);
   Self.changed := true;
  end;
  
  procedure TSouprava.AllLocoAcquiredOk(newLoks: TList<Integer>);
  