anchor.diff:   if ((Self.stolen) and (not Self.acquiring)) then
     begin
      writelog('LOKO ' + Self.nazev + ' ukradena, nenastavuji funkce', WR_MESSAGE);
  -   if (Assigned(err.callback)) then
  -     err.callback(Self, err.data);
  -   Exit();
  -  end;
  - if ((not Self.acquired) and (not Self.acquiring)) then
  -  begin
      if (Assigned(err.callback)) then
        err.callback(Self, err.data);
      Exit();
  
positive.code: procedure THV.SetSingleFunc(func:Integer; state:Boolean; ok: TCb; err: TCb; Sender:TObject = nil);
  var cbOk, cbErr: PTCb;
  begin
   if (Self.slotFunkce[func] = state) then
    begin
     if (Assigned(ok.callback)) then
  
negative.code:     stepsOld:Byte;
      cbOk, cbErr: PTCB;
  begin
   if ((not Self.acquired) and (not Self.acquiring)) then
    begin
     if (Assigned(err.callback)) then
       err.callback(Self, err.data);
     Exit();
    end;
   if ((Self.direction = direction) and (Self.speedStep = speedStep) and (not Self.acquiring)) then
    begin
     if (Assigned(ok.callback)) then
  