Анимация движения шарика по пятиконечной звезде

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
mas=array of TPoint;
var
  Form1: TForm1;
  c,r,k,n:integer;
implementation
 
{$R *.dfm}
//создание отрезка по алгоритму Брезенхема
procedure brez_line(x1,y1,x2,y2:integer;var a:mas;var n:integer);
var dx,dy,errorX,errorY,incX,incY,d,currentX,currentY:integer;
begin
dx:=x2-x1;
dy:=y2-y1;
errorX:=0;
errorY:=0;
if dx>0 then incX:=1
else if dx=0 then incX:=0
else incX := -1;
if(dy > 0) then incY := 1
else if(dy = 0) then incY := 0
else incY := -1;
dx:=abs(dx);
dy:=abs(dy);
if(dy>dx) then d:=dy
else d:=dx;
currentX:=x1;
currentY:=y1;
while((currentX<>x2) or (currentY<>y2)) do
 begin
  errorX:=errorX+dx;
  errorY:=errorY+dy;
  if errorX>=d then
   begin
    errorX:=errorX-d;
    currentX:=currentX+incX;
   end;
  if errorY>=d then
   begin
    errorY:=errorY-d;
    currentY:=currentY+incY;
   end;
  //пишем точки в массив 
  inc(n);
  setlength(a,n);
  a[n-1].x:=currentX;
  a[n-1].y:=currentY;
 end;
end;
//создание массива "всех" точек звезды
procedure massiv(var a:mas;var n,r:integer);
var p:array[1..11] of TPoint;
    i:integer;
    u:real;
begin
//вычисляем координаты вершин звезды
u:=pi/10; // от правого гор. луча
for i:=1 to 11 do
 begin
  if (i mod 2=0) then
   begin // впадина
    p[i].x:=c+round(r*0.38*cos(u));
    p[i].y:=c-round(r*0.38*sin(u));
   end
  else
   begin // луч
    p[i].x:=c+round(r*cos (u));
    p[i].y:=c-round(r*sin(u));
   end;
  u:=u+pi/5;
 end;
//формируем массив всех точек звезды(траектория движения шарика)
n:=0;
for i:=1 to 10 do
brez_line(p[i].x,p[i].y,p[i+1].x,p[i+1].y,a,n);
end;
//рисование звезды
procedure zvezda(a:mas;n:integer;cv:TCanvas);
var i:integer;
begin
cv.MoveTo(a[0].x,a[0].y);
for i:=1 to n-1 do
cv.LineTo(a[i].x,a[i].y);
end;
//рисование шарика
procedure shar(x,y:integer;cv:TCanvas);
begin
cv.Pen.Color:=clRed;
cv.Brush.Color:=clRed;
cv.Ellipse(x-10,y-10,x+10,y+10);
end;
//задание некоторых параметров программы
procedure TForm1.FormCreate(Sender: TObject);
begin
//размер и положение графического окна
ClientWidth:=500;
ClientHeight:=500;
Position:=poScreenCenter;
c:=250;  //центр
r:=200; //внешний радиус звезды
k:=0; //счетчик точек для рисования шара
Timer1.Interval:=10; //интервал таймера
doublebuffered:=true;//уменьшение мерцания
end;
//рисование
procedure TForm1.FormPaint(Sender: TObject);
var a:mas;
begin
massiv(a,n,r);
zvezda(a,n,Canvas);
shar(a[k].x,a[k].y,Canvas);
end;
//движение шара
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(k);
if k=n then k:=0;
repaint;
end;

//вычисляем координаты вершин звезды
u:=pi/2; // от правого гор. луча
for i:=1 to 11 do
 begin
  if (i mod 2=0) then
   begin // впадина
    p[i].x:=c+round(r*0.38*cos(u));
    p[i].y:=c-round(r*0.38*sin(u));
   end
  else
   begin // луч
    p[i].x:=c+round(r*cos (u));
    p[i].y:=c-round(r*sin(u));
   end;
  u:=u-pi/5;
 end;

var
  Form1: TForm1;
  cc:char;
implementation
procedure TForm1.pr1(Sender: TObject; var Key: Char);
begin
cc:=key;
end;
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.pr1(Sender: TObject);
var x,y,i:word; a:real;f,r:integer;
begin r:=200;
Form1.color:=clnavy; canvas.Pen.Width:=3; f:=15; a:=3*pi/2;
repeat
  application.ProcessMessages;
  for i:= 1 to 200 do
  x:=x+1;
  for i:= 1 to 200 do begin;// рисуем звезду линиями
  x:=x+0.5; y:=y+50;
  for i:= 1 to 200 do
 
  for i:= 1 to 200 do
 
  for i:= 1 to 200 do
 
   canvas.pen.color:=clyellow;
  canvas.Ellipse(x,y,x+10,y+10); sleep(15);
  case cc of
   'a':f:=f+5;
   'b':f:=f-5;
   'u':canvas.Pen.Color:=clgreen;
   else canvas.Pen.Color:=clnavy;
  end;
  canvas.Ellipse(x,y,x+10,y+10);
  a:=a+pi/360;
until cc='q' ;
end;

var
  x,y,scale: single;
  i,j:       integer;
 
procedure TimerProc(wnd,msg,wparam,lparam: Cardinal);stdcall;
const
  step: array[0..4] of record
                       x,y,l: single;
                       end=((X: 0.375; Y:-1; l: 8),(X: 0.375; Y:1; l: 8),(X: -1; Y:-5/7; l: 7),(X: 1; Y:0; l:8),(X: -1; Y: 5/7; l: 7));
begin
  x:=x+step[j].x;
  y:=y+step[j].y;
  inc(i);
  if i>step[j].l*scale then
  begin
    inc(j);
    if j>4 then
      j:=0;
    i:=0;
  end;
  Form1.Canvas.Ellipse(round(x-10),round(y-10),round(x+10),round(y+10));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
scale:=Form1.ClientHeight shr 4;
x:=Form1.ClientWidth shr 1-scale*3;
y:=Form1.ClientHeight shr 1+scale*4;
SetTimer(Form1.Handle,0,10,@TimerProc);
end;