Попосил бы помочь, я не могу написать процедуру:
procedure AnimationDraw(DC1, DC2: HDC; const Left, Top, Width, Height: Integer;
 const Time, Count: Byte);
где
 DC1 - куда рисуем (исходное изображение);
 DC2 - откуда рисуем (изображение на замену);
 Time - время замены
 Count - число кадров на замену

Как я понял:
 - создается массив DC: array of HDC;
 - в DC[I] копируется DC1;
 - в DC[I] AlphaBlend DC2, BlendValue = I;
 - с определенной задержкой в DC1 копируется поочередно DC[I];
 - задержку обеспечивал с помощью таймера

Не работает.

Заранее признателен Алексей, мой mail Kirsanov-Alex@Yandex.ru

> - создается массив DC: array of HDC;

ну я бы создал массив из Tbitmap :) Но вроде как более материален, чем непонятный HDC :)