MenuItem neu zeichnen, wenn ImageIndex sich ändert?

[SearchBot]

Aah cool, so gehts (in Berlin).

Hab im MainMenu1.OnChange gesetzt und da drin geschrieben:

Delphi-Quellcode:

procedure TForm1.MainMenu1Change(Sender: TObject; Source: TMenuItem;
  Rebuild: Boolean);
begin
 SendMessage(MainMenu1.WindowHandle, CM_MENUCHANGED, 0, 0);
 DrawMenuBar(MainMenu1.WindowHandle);
end;

Jetzt geht es ohne weiteres Herumgetrickse...
Danke für Eure Hilfe!!