关于动态生成菜单的问题?

Question

var
  dc: hDC;
  pm: HMenu;
  pt: TPoint;
begin
  GetCursorPos (pt);
  pm := CreatePopupMenu;  { define the popup menu items (& their commands) here }
  AppendMenu (pm, 0, Ord ('B'), '备份管理器(&B)');
  AppendMenu (pm, mf_Separator, 0, Nil);
  AppendMenu (pm, 0, Ord ('C'), '系统设置(&C)');
  AppendMenu (pm, mf_Separator, 0, Nil);
  AppendMenu (pm, 0, Ord ('S'), '屏幕保护(&S)');
  AppendMenu (pm, mf_Separator, 0, Nil);
  AppendMenu (pm, 0, Ord ('A'), '关于(&A)...');
  AppendMenu (pm, mf_Separator, 0, Nil);
  AppendMenu (pm, 0, Ord ('E'), '退出(&E)');  SetForegroundWindow (Wnd);
  dc := GetDC (0);
  if TrackPopupMenu (pm, {tpm_Rightbutton or }tpm_BottomAlign or tpm_RightAlign, pt.x,GetDeviceCaps(dc,HORZRES){pt.y}, 0, Wnd, Nil)
    then SetForegroundWindow (Wnd);
  DestroyMenu (pm)