Анимация: перемещение и масштабирование рисунка

begin
SetPenWidth(3);
Circle(200,200,120);
Circle(200,200,60);
FloodFill(200,200,clBlack);
line(200,80,100,260);
line(100,260,300,260);
line(300,260,200,80);
line(200,320,100,140);
line(100,140,300,140);
line(300,140,200,320);
end.

Uses graphABC,Timers;
var
x,y,r,r2,a100,a120,a60:integer;
 
procedure KeyDown(Key: integer);
begin
  case Key of 
  VK_Up: dec(y);
  VK_Down: inc(y);
  VK_Left: dec(x);
  VK_Right:inc(x);
  VK_PageUp:begin inc(r);inc(r2);inc(a100);inc(a60);inc(a120); end;
  VK_PageDown:begin dec(r);dec(r2);dec(a100);dec(a60);dec(a120); end;
  end;
  
  end;
procedure TimerProc;
begin
lockdrawing;
clearWindow;
SetPenWidth(3);
Circle(x,y,r);
Circle(x,y,r2);
FloodFill(x,y,clBlack);
line(x,y-a120,x-a100,y+a60);
line(x-a100,y+a60,x+a100,y+a60);
line(x+a100,y+a60,x,y-a120);
line(x,y+a120,x-a100,y-a60);
line(x-a100,y-a60,x+a100,y-a60);
line(x+a100,y-a60,x,y+a120);
redraw;
end;
 
begin
x:=200;
y:=200;
r:=120;
r2:=60;
a100:=100;
a60:=60;
a120:=120;
 
SetPenWidth(3);
Circle(x,y,120);
Circle(x,y,60);
FloodFill(x,y,clBlack);
line(x,y-120,x-100,y+60);
line(x-100,y+60,x+100,y+60);
line(x+100,y+60,x,y-120);
line(x,320,x-100,y-60);
line(x-100,y-60,x+100,y-60);
line(x+100,y-60,x,y+120);
OnKeyDown := KeyDown; 
var objTimer := new Timer(100, TimerProc); 
  objTimer.Start; 
end.