Creation of Dynamic Menus with Delphi and Interbase

Muchas veces nos hemos visto en la necesidad de crear menus en tiempo de ejecución, en el siguiente enlace se muestra un simple ejemplo de cómo hacerlo:
http://cc.borland.com/Item.aspx?id=20612