anchor.diff:    if SProc='' then exit;
   
     for i:= 0 to AppCommandList.Count-1 do
  -    with TAppCommand(AppCommandList[i]) do
  -      if (ItemModule=SModule) and (ItemProc=SProc) and (ItemProcParam=SProcParam) then
  -        exit(i);
  +  begin
  +    AppCmd:= TAppCommand(AppCommandList[i]);
  +    if (AppCmd.ItemModule=SModule) and
  +      (AppCmd.ItemProc=SProc) and
  +      (AppCmd.ItemProcParam=SProcParam) then
  +      exit(i);
  +  end;
   end;
   
   
  
positive.code: 
  function AppCommandHasConfigurableHotkey(Cmd: integer): boolean;
  begin
    Result:= AppCommandCategory(Cmd) in [categ_Normal, categ_Plugin];
  end;
  
  
  
negative.code: var
    Sep: TATStringSeparator;
    SModule, SProc, SProcParam: string;
    AppCmd: TAppCommand;
    i: integer;
  begin
    Result:= -1;
  