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