Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

Следующий код показывает, как добавить картинку в виде объекта 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))

Взято из https://forum.sources.ru