anchor.diff:  
    Self.stav.funkce[func] := state;
    TrakceI.Callbacks(ok, err, cbOk, cbErr);
  + TrakceI.Log(llCommands, 'Loko ' + Self.nazev + ': F' + IntToStr(func) +
  +             ': ' + IntToStr(PrevodySoustav.BoolToInt(state)));
   
    try
      TrakceI.LocoSetSingleFunc(Self.adresa, func, Self.slot.functions,
  
positive.code:  Self.changed := true;
  end;
  
  procedure THV.EmergencyStop(ok: TCb; err: TCb; Sender:TObject = nil);
  var cbOk, cbErr: PTCb;
  begin
  
negative.code:      Soupravy[Self.souprava].LokDirChanged();
       // Soupravy[HV.Stav.souprava] <> nil muze nastat pri aktualizaci HV na souprave,
       // coz se dede prave tady
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  