anchor.diff:    begin
       n:= ARect.Right-c.TextWidth(strkey)-4;
       c.Font.Color:= GetAppColor('ListFontHotkey');
  -    c.TextOut(n, pnt.y, strkey);
  +    c.TextOut(n, pnt.y, Utf8Encode(strkey));
     end;
   end;
   
  
positive.code:       const ARect: TRect);
    private
      { private declarations }
      listItemsFiltered: TStringlist;
      procedure DoFilter;
      function GetResultCmd: integer;
      function IsFiltered(AOrigIndex: integer): boolean;
  
negative.code: var
    cl: TColor;
    n, i: integer;
    str, buf: string;
    strname, strkey, strfind: UnicodeString;
    ar: TATIntArray;
    pnt: TPoint;
    r1: TRect;
  begin
    if AIndex=list.ItemIndex then
      cl:= GetAppColor('ListSelBg')
  