本人也刚学习delphi7，有些基础不是很懂。还请高手不要见笑。
以下是一段在系统菜单中添加菜单项的代码。
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
i:=getsystemmenu(handle,false);
appendmenu(i,mf_string,100,'你好(&E)');
end;
procedure tform1.sysmenu(var msg:twmmenuselect);
begin
if msg.IDItem=100 then
showmessage('哈哈')
else
inherited;
end;

可是在执行的时候出、现以下的问题：
构建
  [错误] Unit1.pas(31): Undeclared identifier: 'sysmenu'
  [错误] Unit1.pas(31): ';' expected but ')' found
  [错误] Unit1.pas(36): This form of method call only allowed in methods of derived types
  [致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
菜单已添加OK，但消息构建不成功。
请高手指出问题所在，并更正。