Кнопка для запуска графики

unit Unit_Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Math;
 
type
  TfmMain = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
  l=200;
  r=30;
  max_add=0.03;
 
 
var
  fmMain: TfmMain;
  BMP:TBitmap;
  angle:real;
  add:real;
 
 
implementation
 
{$R *.dfm}
 
procedure TfmMain.FormCreate(Sender: TObject);
begin
  BMP:=TBitmap.Create();
  BMP.Width:=fmMain.ClientWidth;
  BMP.Height:=fmMain.ClientHeight;
  add:=max_add;
end;
 
procedure TfmMain.Timer1Timer(Sender: TObject);
var
  w,h:integer;
  Center:TPoint;
begin
  w:=BMP.Width;
  h:=BMP.Height;
 
  with BMP.Canvas do
  begin
    Brush.Color:=clWindow;
    FillRect(ClientRect);
    Center.X:=round(w div 2 + l*sin(angle));
    Center.Y:=round((h - l) div 2 + l*cos(angle));
 
    Pen.Color:=clBlack;
    MoveTo(w div 2, (h - l) div 2);
    LineTo(Center.X, Center.Y);
 
    angle:=angle+add*power(cos(angle),3);
    if abs(angle)>=Pi/4 then
      add:=0;
 
    Brush.Color:=clMoneyGreen;
    Ellipse(
            Rect(
                  Center.X - r div 2,
                  Center.Y - r div 2,
                  Center.X + r div 2,
                  Center.Y + r div 2
                 )
            );
    end;
    fmMain.Canvas.Draw(0,0,BMP);
end;
 
procedure TfmMain.FormDestroy(Sender: TObject);
begin
  BMP.Free;
end;
 
end.

// в TfmMain.FormCreate пишем 
Timer1.Enabled:=False;

procedure TfmMain.btn1Click(Sender: TObject);
begin
   Timer1.Enabled:=True;
end;