Activate the help context cursor

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Begin

   SendMessage ( Form1.handle , WM_SYSCOMMAND , SC_CONTEXTHELP , 0 ) ;

End ;