Может быть так: var Bmp1 : TBitmap; ... Bmp1 := TBitmap.Create; Bmp1.LoadFromFile('c:\where\b1.BMP'); SetMenuItemBitmaps( MenuItemTest.Handle, 0, MF_BYPOSITION, Bmp1.Handle, Bmp1.Handle); ...
Параметры:
Код можно вставить в обработчик OnCreate для формы.
!! При уничтожении меню BitMap не уничтожается, это надо делать отдельно.