anchor.diff:   end;
   end;
   
  -procedure TBlkAC.MenuSTOPClick(SenderPnl:TIdContext; SenderOR:TObject);
  +procedure TBlkAC.MenuSTOPClick(SenderPnl: TIdContext; SenderOR: TObject);
   begin
    try
      Self.Stop();
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  function TBlkAC.GetSettings():TBlkACSettings;
  begin
   Result := Self.m_settings;
  end;
  
negative.code:  end;
  end;
  
  procedure TBlkAC.MenuPOKRACClick(SenderPnl: TIdContext; SenderOR: TObject);
  begin
   if (not Self.paused) then
    begin
  