Hola,
Una búsqueda en
Torry's por la palabra "
zoom" devuelve derivados o similares a "TImage" que tal vez te solucionen buena parte del trabajo.
Este artículo de
DelphiAbout pudiera resultar también de tu interés. Por otro lado el evento "OnMouseWheelDown" conque cuentan los "TForm".