anchor.diff:    begin
      // souprava ma zadany prave jeden smer
      direction := ((Soupravy[Self.souprava].smer = THVStanoviste.sudy) xor (Self.stav.StanovisteA = THVStanoviste.sudy));
  -   if ((direction = Self.direction) and (Self.speedStep = 0)) then
  -    begin
  -     // smer ok
  -     Self.TrakceAcquiredDirection(Sender, nil);
  -    end else begin
  -     // smer nok -> aktualizovat smer
  -     try
  -       Self.SetDirection(direction,
  -                         TTrakce.Callback(Self.TrakceAcquiredDirection),
  -                         TTrakce.Callback(Self.TrakceAcquiredErr));
  -     except
  -       Self.TrakceAcquiredErr(Self, nil);
  -     end;
  -    end;
  -  end else
  -   Self.TrakceAcquiredDirection(Sender, nil);
  +   speedStep := TrakceI.SpeedStep(Soupravy[Self.souprava].rychlost);
  +  end else begin
  +   direction := Self.slot.direction;
  +   if (Self.stolen) then
  +     speedStep := Self.slot.speed
  +   else
  +     speedStep := 0;
  +  end;
  +
  + // Vzdy nastavit smer, protoze tim prevezmeme loko z rizeni jineho ovladace
  + Self.SetSpeedStepDir(speedStep, direction,
  +                      TTrakce.Callback(Self.TrakceAcquiredDirection),
  +                      TTrakce.Callback(Self.TrakceAcquiredErr));
   end;
   
   procedure THV.TrakceAcquiredDirection(Sender: TObject; data: Pointer);
   begin
    // Set functions as we wish
  + Self.stav.stolen := false;
    Self.StavFunctionsToSlotFunctions(TTrakce.Callback(Self.TrakceAcquiredFunctionsSet),
                                      TTrakce.Callback(Self.TrakceAcquiredErr));
   end;
  
positive.code:      ok.callback(Self, ok.data);
     Exit();
    end;
   if (Self.stolen) then
    begin
     writelog('LOKO ' + Self.nazev + ' ukradena, nenastavuji funkce', WR_MESSAGE);
     if (Assigned(err.callback)) then
  
negative.code: 
   Prebirani lokomotivy:
    1) Zavolat locoAcquire do Trakce (zjisti vsechny informace o lokomotive)
    2) Nastavit spravny smer loko a rychlost loko (vzhledem k souprave nebo aktualni)
    3) Nastavit funkce na pzadovane hodnoty
    4) Naprogramovat POM
    Pokud v libovolne casti procesu nastane chyba, je vyvolan Error callback.
  