type 
  TForm1 = class(TForm) 
   procedure FormCreate(Sender: TObject); 
  private 
   { Private declarations } 
   procedure WMSysCommand(var Msg: TWMSysCommand); 
     message WM_SYSCOMMAND; 
  public 
   { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
const 
  SC_MyMenuItem = WM_USER + 1; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  AppendMenu(GetSystemMenu(Handle, FALSE), MF_SEPARATOR, 0, ''); 
  AppendMenu(GetSystemMenu(Handle, FALSE), MF_STRING, SC_MyMenuItem, 'My Item'); 
end; 
 
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); 
begin 
  if Msg.CmdType = SC_MyMenuItem then 
   ShowMessage('Got the message') else 
   inherited; 
end;