procedure Tform1.FormCreate(Sender:Tobject);
var
i:integer;
begin
AppendMenu(GetSystemMenu(Handle,False),MF_SEPARATOR,0,'');
with mainmenu1 do //假设你的菜单名是这样
for i:=0 to Items.count-1 do
appendMenu(Getsystemmenu(self.handle,False),MF_POPUP,
Items[i].handle,Pchar(Items[i].caption));
end
end;