anchor.diff:      sl.Clear;
       s_items:= AHotkey;
       repeat
  -      s_item:= SGetItem(s_items, '|');
  +      s_item:= SGetItem(s_items, cKeyComboSeparator);
         if s_item='' then Break;
         sl.Add(s_item);
       until false;
  
positive.code: begin
    //check-1: is key registered for any other command?
    if not AOverwriteKey then
      if AppKeymapHasDuplicateForKey(AHotkey) then exit;
  
    c:= TJSONConfig.Create(nil);
    sl:= TStringlist.create;
  
negative.code: 
  procedure DoOps_SaveKey_ForPluginModuleAndMethod(AOverwriteKey: boolean;
    const AMenuitemCaption, AModuleName, AMethodName, ALexerName, AHotkey: string);
  const
    cKeyComboSeparator = '|';
  var
    c: TJSONConfig;
    sl: TStringList;
  