问个程序窗口修改的问题？？？(200分)

所有窗口当鼠标点击程序左上角图标或右键点击窗口的标题栏会弹出一个菜单，我想问下怎么样能自己向里面添加些东西！！！！！！！

procedure TForm1.Button1Click(Sender: TObject);
var
hSysMenu:HMenu;
begin
hSysMenu:=GetSystemMenu(Handle,False);
if (hSysMenu>0) then
AppendMenu(hSysMenu,MF_STRING,100,'hello');
end;
procedure TForm1.WsysMenu(var Msg:TMessage);
//message WM_SYSCOMMAND
begin
if (Msg.WParam=100) then
ShowMessage('hello');
inherited ;
end;

接受答案了.