procedure TForm1.IEFolderMViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  _mSelect: TIEArrayOfInteger;
  I: Integer;
begin
  if key = vk_q then
  begin
    _mSelect := IEFolderMView.MultiSelectedImagesList;
    for I := High(_mSelect) downto Low(_mSelect) do
    begin
      memo1.lines.add(intToStr(_mSelect[I])); //2x...
    end;
  end;
end;