Ich sehe ich sollte mir die Hilfe bezüglich Menüs nochmal ansehen. Seit Delphi 3 habe ich mir die nicht mehr angeguckt, da ich Menüs nicht zeichnete. Anscheinend ist einiges dazugekommen.
Das Problem habe ich so hingekriegt, nur gefiel mir der Code nicht:
Delphi-Quellcode:
with TMenuItem(Sender), ACanvas do
begin
...
TPopupMenu(GetParentComponent).Images.GetIcon(ImageIndex, Ico);
Draw(x, y, Ico);
Aber danke für den Tipp.