Таймер

[Failed_experiment]

Здравствуйте, форумчане!
Прошу помочь с решением задачи, которая состоит в следующем: смоделировать работу спирографа, показать динамику процесса.
Мне удалось безошибочно написать ту часть программы, которая выводит на экран только "путь" той самой заветной точки без прорисовки окружностей (добавить их - не проблема). Но я не знаю, как показать динамику, а точнее просто не умею работать с таймером в делфи.
Итак, подытожим: как сделать так, чтобы "рисовалось помедленнее"?

Кусочек кода:
х0, у0 - координаты центра координатной оси
R - радиус большой окружности с центром в (х0, у0)
mR - радиус малой окружности, которая "катится" по большой
d - расстояние, на котором находится точка, по малому радиусу

with Form1.Canvas do
begin grad:=0;
repeat
ug2:=6.28*grad/360;
x:=(R+mR)*cos(ug2) - d*cos((R+mR)*ug2/mR);
y:=(R+mR)*sin(ug2) - d*sin((R+mR)*ug2/mR);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clGreen;
grad:=grad+0.1;
until (grad>=360);
end;

Заранее большое спасибо...

[s-andriano]

Вам нужно придумать набор параметров, однозначно характеризующих состояние Вашей системы на определенный момент времени. Вероятно, это уже есть.

Нужно написать фрагмент кода, который рисует изображение, соответствующее определенному состоянию системы. Вероятно, основная часть этого фрагмента уже написана Вами между "repeat" и "grad:=grad+0.1;".

Теперь создаете таймер, в его обработчике изменяем состояние (в данном случае grad:=grad+0.1, после чего инициируем перерисовку.

Цикл при этом организует сама ОС, поэтому существующий у Вас цикл repeat не нужен.