procedure TForm1.B_KeywordLookupClick(Sender: TObject);
var
link: HH_AKLINK;
begin
link.cbStruct := sizeof(HH_AKLINK) ;
link.fReserved := FALSE ;
link.pszKeywords := 'Delphi';
link.pszUrl := nil;
link.pszMsgText := nil;
link.pszMsgTitle := nil;
link.pszWindow := 0;
link.fIndexOnFail := TRUE ;
HtmlHelp( handle,AppPath+'/Sample.chm',
HH_KEYWORD_LOOKUP,
DWORD_PTR(@link));
end;