جستجو در فایل های راهنما(Help)

procedure HelpSearch(sHelpFName, sSearchKey: string);
var
  pc: PChar;
begin
  Application.HelpFile := sHelpFName;
  pc := StrAlloc(Length(sSearchKey) + 1);
  StrPCopy(pc, sSearchKey);
  Application.HelpCommand(HELP_PARTIALKEY, LongInt(pc));
  StrDispose(pc);
end;

مثال

HelpSearch('DELPHI.HLP', 'colors');

HelpSearch('DELPHI.HLP', '');