TAcceleratorMaker Delphi 4 or upper design-time
component: captions editor/optimizer.

Drop it on a form to edit and AUTOMATE captions
accelerators definition.

Freeware. Source code included

