This is a very useful piece of code that you have developed.
Good Work !!
There is a little detail that I'd like to point out.
The component works fine when the "ScaleMode" of the parent form is is in "Twips". When I change this to "Pixel" or (any other) the component does not show desired output.