Delphi - Animar Ventana

Hola a todos estoy trabajando en la animación sencilla de una ventana, y para esto uso la función Api DrawAnimatedRects, y quiero que la ventana tenga un efecto como si saliera del menú de donde es llamada o del botón que hace que se abra la ventana y tengo el siguiente código pero no me funciona como yo quiero

var

rectMenu, rectVentana : TRect;
GetWindowRect(menu.handle, rectMenu); // Handle del menu desde donde quiero que aparezca la ventana o tambien puede ser cualquier control (boton, etiqueta checkbox etc).
GetWindowRect(ventana.handle, rectVentana);
DrawAnimatedRects(ventana.handle, IDANI_CAPTION, rectMenu, rectVentana);

Quisiera saber que es lo que estoy haciendo mal

De antemano muchas gracias
Saludos

Probé tu codigo y funciona bien, solo no muestra la ventana, faltaría Ventana.ShowModal;

Tal ves a ti tambien te funcione, pero no explicas bien eso de "no me funciona como yo quiero" como es que quieres que funcione??

Hola, que tal muchas gracias por contestar, pues mira lo que pasa es que no funcionaba cuando en la llamada a GetWindowRect usaba como handle, un item del menú principal, pero ahora ya lo resolví, utilizé la función api GetMenuItemRect, y con eso quedó gracias

Saludos
Crono