Как да направите анимация (2D)

Майстори, кажете ми как да правя анимация в Delphi (2D).
Опитах нещо, но не съм доволен от резултата.
Можете ли да ми кажете нещо.

Ето и моя опит-
http://delphigames.ruhelp.com/index.php?act=Attach&type=post&id=37

Задайте конкретни въпроси на линка някакви глупости

Коригирам се:
Да приемем, че има рисунка, съдържаща няколко кадъра, показваща коя една по една се получава анимация, като тази, която имам например.
Въпрос: как да покажа необходимия кадър в компонента TImage?
Или: как да покажа необходимата част от картината?

BitBlt () може да копира на части

какво е BitBlt и как да го използвам?

Връзката ви зарежда малко спам с оферта за регистрация на безплатен форум:) Е, по дяволите с него с пример.

Ето IMHO най-лесният начин (започнах с нещо подобно):
1) изрязвате рамката на картината по рамка - всеки кадър в отделен файл. Извиквате ги, например k1.bmp, k2.bmp,., k10.bmp
2) създаване на масив

my_pic: масив [1.10] от tbitmap;

и променливата на маркера.

pic_tag: байт;

3) качете чертежи там

за i: = 1 до 10 do
започнете
my_pic [i]: = tbitmap.create;
my_pic [i] .loadfromfile ("k" + inttostr (i));
край;

4) в таймера или където и да имате промяна на кадъра

.
inc (pic_tag);
ако pic_tag> 10, тогава pic_tag: = 1;
image1.canvas.draw (0,0, my_pic [pic_tag]);
.

---