title: Delphi Mouse wheel event in component
body: <p>I'm wanting to write a component that uses the mouse wheel to zoom
  something similar to Google earth.</p>
  
  <p>I have a component using onMouseWheel and I have properties MaxZoom MinZoom and Zoom there is a better option that StretchDraw with the bitmap I'm trying to get the location of the components area in the form</p>
  
  <p>What I understand I have to find each parent until I find the tCustomform and add all Component's top and components left to get the objects location to find my objects location. is there a better way</p>
  
  <p>once I have the location I can zoom a Map from the mouse cursor location if the mouse is over my object and where to zoom from.</p>
  
  <p>has any one seen any code please  </p>