Вращающийся отрезок

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
a: integer;
procedure TForm1.Timer1Timer(Sender: TObject);
const
R= 80;//длина линии
R1=-80;//длина линии в другую сторону
G= 0.0174532; //коэфициент преобразования град/радиан
var
 l,x0,y0,x,y,x1,y1 : integer;
begin
 Form1.Canvas.Ellipse(98,98,102,102); // середина отрезка
 // начао отрезков
 x0:= 100;
 y0:= 100;
 // стереть рисунок
 Form1.Canvas.Pen.Color:= clBtnFace;
 Form1.Canvas.MoveTo(x0,y0);
 x:= Round(x0+r*cos(a*G));
 y:= Round(y0-r*sin(a*G));
 x1:= Round(x0+r1*cos(a*G));
 y1:= Round(y0-r1*sin(a*G));
 Form1.Canvas.LineTo(x1,y1);
 Form1.Canvas.LineTo(x,y);
 // добавить счетчик
 a:= a+1;
 // нарисовать рисунок
 Form1.Canvas.Pen.Color:= clRed;
 Form1.Canvas.MoveTo(x0,y0);
 x:= Round(x0+r*cos(a*G));
 y:= Round(y0-r*sin(a*G));
 x1:= Round(x0+r1*cos(a*G));
 y1:= Round(y0-r1*sin(a*G));
 Form1.Canvas.LineTo(x1,y1);
 Form1.Canvas.LineTo(x,y);
 
 
 
end;
 
end.