Имитация подмигивания

[NastyaSmile]

Нужна программка, отображающая на экране изображение подмигивающего колобка. Само колобок уже сделан, осталось только сделать так, чтобы он подмигивал..

Program laba14;
Uses Graph, Crt;
var Gd, Gm, u:integer;
    Xasp, Yasp:word;
    Radius:integer;
begin
Gd:=Detect;
InitGraph(Gd, Gm, 'c:\Program Files\SchoolPak\pak\BP');
if GraphResult <>0 then Halt(1);
setviewport(1,1,600,450,true);
setcolor(14);
setfillstyle(1,14);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 150, 150);
GetAspectRatio(Xasp, Yasp);
floodfill(340,220,14);
setcolor(6);
setfillstyle(1,6);
FillEllipse(250, 200, 40, 40); {glaz levui}
setcolor(6);
setfillstyle(1,6);
FillEllipse(390, 200, 40, 40); {glaz pravui}
setcolor(15);
setfillstyle(1,15);
FillEllipse(250, 200, 35, 35); {zrachok levui}
setcolor(0);
setfillstyle(1,0);
FillEllipse(250, 200, 10, 10);
setcolor(15);
setfillstyle(1,15);
FillEllipse(390, 200, 35, 35); {zrachok pravui}
setcolor(0);
setfillstyle(1,0);
FillEllipse(390, 200, 10, 10);
setcolor(6);
setfillstyle(1,6);
FillEllipse(320, 250, 30, 30); {nos}
setcolor(red);
Ellipse(320,300,180,0,80,50);
delay(1000);
setcolor(6);
setfillstyle(1,6);
bar(210, 200, 290, 210);
readln;
closeGraph;
end.

Кто-нибудь подкиньте идейку..



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VIK_aka_TOR]

как вариант можно всунуть в цикл... и каждый раз перерисовывать... в цикле использовать Sleep(время в миллисекундах); время ожидания до выполнения следующего действия...