delphi onhelp事件

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