Send a WM_SYSCOMMANDmessage to the form, skipping SC_CONTEXTHELPlike lParam.
Changes the cursor to a question mark with a pointer. If the user clicks the control in the dialog box, the control will receive the WM_HELP message .
- OnClick :
procedure TMyForm.Button1Click(Sender: TObject);
begin
SendMessage(Handle, WM_SYSCOMMAND, SC_CONTEXTHELP, 0);
end;