Przesuwanie pozycji w PopupMenu

Mam PopupMenu tworzony dynamicznie.
Jak przesunąć w nim np. 5-ty Item o jeden w dół ? (ten 5-ty Item ma submenu, a 6-ty nie ma)

var MI: TMenuItem;
begin
  MI:=PopupMenu1.Items[5];
  PopupMenu1.Items.Delete(5);
  PopupMenu1.Items.Insert(6,MI);
end;

WinAPI: DeleteMenu, InsertMenuItem...