Как анимировать появление формы, как будто она развертывается из середины?

Borland C++ Builder FAQ
составлен по материалам форума на sources.ru

Составители: OlegGG, KAV, kenai

Как анимировать появление формы, как будто она развертывается из середины?
Автор: KAV
Исходная ссылка:
При открытии формы (OnCreate):

TRect r1,r2; 
r1 = Rect(Left+Width/2,Top+Height/2,Left+Width/2,Top+Height/2);
r2 = BoundsRect;
DrawAnimatedRects(Handle,IDANI_CAPTION,&r1,&r2);

Форма будет как будто развертываться из середины.
А чтобы она при закрытии свертывалась в свою середину, то пишем в OnClose:

TRect r1,r2; 
r1 = Rect(Left+Width/2,Top+Height/2,Left+Width/2,Top+Height/2);
r2 = BoundsRect;
DrawAnimatedRects(Handle,IDANI_CAPTION,&r2,&r1);  // меняется только последовательность последних параметров

Содержание City 3D - Карта Ангарска со справочником организаций