delphi onhelp事件

//设置form 的onHelp事件
function TForm2.FormHelp(Command: Word; Data: NativeInt;
var CallHelp: Boolean): Boolean;
begin
　　ShowMessage('this is help!');
end;

同时设置form的属性：

运行程序，按F1会提示