program speed;
uses crt, graph;
var
gd,gm:integer;
begin
gd:=VGA;
gm:=VGAhi;
initgraph (gd,gm,'C:\BP\BGI');
if graphresult =grOk then
begin
line (0,0,639,479);
circle (15,20,15);
...
end;
end.
Вот на что меня хватило, может кто подскажет как сделать иллюзию движения