[Delphi] TMenuItem + zmieniajaca sie ikona (32x32)

W tym artykule na 4p zostal opisany sposob "namalowania" ikony 32x32px w TMenuItem.

Pytanie: w jaki sposob moglbym zmienic tekst/ikone gdy na dana pozycje "najedzie" kursor (zaznaczy ja) ?

Bo jakos nie moge znalezc procedury przechwytujacej...

procedure TMainForm.XXXXAdvancedDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
  if odSelected in State then
    begin
      {xxxx}
    end;
end;

OwnerDraw