unit test;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,bitmapprogress,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a : tbitmapprogress;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
bmp : tbitmap;
n : integer;
begin
a:=tbitmapprogress.create(form1);

bmp:=tbitmap.Create;
bmp.loadfromfile('cd.bmp');

a.top:=100;
a.left:=100;
a.width:=200;
a.height:=200;

a.assignbackground(bmp);
a.paint;
a.max:=150;
a.radius:=100;
a.startradius:=36;

for n:=0 to 15000 do begin
a.position:=n;

end;


bmp.free;

a.position:=0;

end;

end.