Работа с System Menu

Code:

AppendMenu(GetSystemMenu(Self.Handle,FALSE),MF_ENABLED,1001,'&Help');

Code:

private

procedure WhetherUserPressesHelp(var Msg: TMessage); message WM_SYSCOMMAND;

....

procedure TForm1.WhetherUserPressesHelp(var Msg: TMessage);

begin

   if Msg.WParam = 1001 then

     HelpForm.ShowModal

   else

     inherited; // к примеру вызываем форму на которой будет помощь

end;