This component changes standard TMainMenu and TPopupMenu appearance. Just place TSZLDrawMenuItem on your form and enable DrawMenuKind property.
Download component without source for Delphi 7 / 2009 / XE here:
SZLDrawMenuItem.zip (Exe-demo included)
It is free to use in any kind of applications.
if you are interested in getting source code, please contact me: