Вот простой метод анимации с использованием таймера.
Используется:
Форма - Form1
Лабел - Label1
Таймер - Timer1.
С помощью таймера можно делать все что хочешь. Например рисовать на канве.

                        
int seconds;

seconds=20;

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

seconds--;

Label1->Caption="Осталось "+IntToStr(seconds)+" секунд";

if(seconds==0)

{

Timer1->Enabled=false;

}

}