anchor.diff:  function TfmMenuApi.GetResultCmd: integer;
   begin
     if list.ItemIndex>=0 then
  -    Result:= PtrInt(listItemsFiltered.Objects[list.ItemIndex])
  +    Result:= PtrInt(listFiltered[list.ItemIndex])
     else
       Result:= -1;
   end;
  
positive.code: var
    cl: TColor;
    n, i: integer;
    str, strname, strkey, strfind: string;
    ar: TATIntArray;
    pnt: TPoint;
    r1: TRect;
    buf: string;
  begin
    if AIndex=list.ItemIndex then
      cl:= GetAppColor('ListSelBg')
  
negative.code:   c.FillRect(ARect);
    c.Font.Color:= GetAppColor('ListFont');
  
    str:= listItems[PtrInt(listFiltered[AIndex])]; //ansi
    strname:= Utf8Decode(SGetItem(str, #9)); //uni
    strkey:= Utf8Decode(SGetItem(str, #9)); //uni
    strfind:= Trim(edit.Text); //uni
  
    pnt:= Point(ARect.Left+4, ARect.Top+1);
    c.TextOut(pnt.x, pnt.y, Utf8Encode(strname));
  
    c.Font.Color:= GetAppColor('ListFontHilite');
    ar:= SFindFuzzyPositions(strname, strfind);
    for i:= Low(ar) to High(ar) do
    begin
      buf:= Utf8Encode(UnicodeString(strname[ar[i]]));
      n:= c.TextWidth(Utf8Encode(Copy(strname, 1, ar[i]-1)));
      r1:= Rect(pnt.x+n, pnt.y, pnt.x+n+c.TextWidth(buf), ARect.Bottom);
      ExtTextOut(c.Handle,
        r1.Left, r1.Top,
  