Как сделать пункты меню с картинками

Следующий код показывает, как добавить картинку в виде объекта TImage в объект TMenuItem.

var
   hHandle: THandle;
   x: integer;
   // visual controls:
   hMenu: TMenuItem;
   Image1: TImage;

...

  x:= 10; // десятый пункт меню
  hHandle := GetMenuItemID(hMenu.handle, x);
  ModifyMenu(hMenu.handle, hHandle, MF_BYCOMMAND Or MF_BITMAP, hHandle,
             PChar(Image1.picture.bitmap.handle))