如何调用HtmlHelp API实现全文查找？ (200分)

在论坛上查了好久，都没有解决方案。源码如下：
procedure TForm1.cxButton1Click(Sender: TObject);
var
fts_Query:tagHH_FTS_QUERY;
AppPath,s:string;
begin
AppPath:=ExtractFilePath(Application.ExeName);
s:=Trim(Memo1.Text);
FillChar(FTS_QUERY, SizeOf(tagHH_FTS_QUERY), 0);
FTS_QUERY.cbStruct:=sizeof(tagHH_FTS_QUERY); FTS_QUERY.fUniCodeStrings:=true;
FTS_QUERY.pszSearchQuery:=PChar(s);
FTS_QUERY.iProximity:=1;
FTS_QUERY.fStemmedSearch:=false;
FTS_QUERY.fTitleOnly:=false;
FTS_QUERY.fExecute:=TRUE;
FTS_QUERY.pszWindow:=nil;
HtmlHelp(Application.Handle, AppPath+'Help/Help.chm', HH_DISPLAY_SEARCH,@FTS_QUERY);
end;
只出现搜索页面，无法实现全文搜索。查资料得知是Html Help Control的一个bug，不知
哪位高手已解决该问题，望指教！谢谢啦。