[fuzo]

создаю новый проект копирую код, добавляю таймер. Но почемуто на форме ничег оне происходит

Сделал по своему, пока без движения ног только руки. Но почемуто цикл не выполняется. В чём ошибка? ( вернее он выполняется но только в 2 шага, а затем по кругу с добавлением шага не идёт, а просто повторяетя).

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
var         i,n,h:integer;
begin
with PaintBox1 do begin
h:=0;
n:=1;
for i:=1 to n do
h:=h+1;
n:=n+1;
Canvas.Brush.Color:=clRed;
Canvas.Ellipse(15+h,15,50+h,50);
Canvas.MoveTo(30+h,50);
Canvas.LineTo(30+h,130);
Canvas.MoveTo(30+h,130);
Canvas.LineTo(20+h,170);
Canvas.MoveTo(30+h,130);
Canvas.LineTo(40+h,170);
Canvas.MoveTo(10+h,80);
Canvas.LineTo(50+h,80);
i:=2;
Sleep(400);
refresh;
i:=3;
Canvas.Brush.Color:=clRed;
Canvas.Ellipse(25+h,15,60+h,50);
Canvas.MoveTo(40+h,50);
Canvas.LineTo(40+h,130);
Canvas.MoveTo(40+h,130);
Canvas.LineTo(30+h,170);
Canvas.MoveTo(40+h,130);
Canvas.LineTo(50+h,170);
Canvas.MoveTo(40+h,80);
Canvas.LineTo(20+h,100);
Canvas.MoveTo(40+h,80);
Canvas.LineTo(60+h,100);
Sleep(400);
refresh;
end;
end;