procedure TForm1.HelpSearchFor;
var
 S : String;
begin
 S := '';
 Application.HelpFile := 'C:\MYAPPPATH\MYHELP.HLP';
 Application.HelpCommand(HELP_PARTIALKEY, LongInt(@S));
end;