Радуга в паскале

[korzunmaria]

[PASCAL]begin
y:=200;
for i:=1 to 30 do
begin
if i<5 then SetColor(4);
if (i>5)and(i<10) then SetColor(14);
if (i>10)and(i<15) then SetColor(2);
if (i>20)and(i<25) then SetColor(1);
if i>25 then SetColor(13);
Ellipse(325,y,10,170,240,150);
y:=y+1;
end;[/PASCAL]
Таким образом у меня на экране выводится просто радуга, а как сделать чтобы каждая линия постепенно выводилась? Мне нужна анимация, помогите.

[IT-man]

for i:=1 to 30 do
begin
if i<5 then SetColor(4);
if (i>5)and(i<10) then SetColor(14);
if (i>10)and(i<15) then SetColor(2);
if (i>20)and(i<25) then SetColor(1);
if i>25 then SetColor(13);
Ellipse(325,y,10,170,240,150); 
delay(100);
y:=y+1;
end;