Разработать программу, которая на поверхность формы выводит изображение идущих часов

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DateUtils;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
qleft,qtop,qside,qcenterx,qcentery:integer;
implementation
 
{$R *.dfm}
 
procedure qinit;
begin
qleft:=30;
qtop:=30;
with form1 do
begin
if width<height then
qside:=width
else
qside:=height;
end;
qside:=qside-qleft*2;
qcenterx:=qleft+qside div 2;
qcentery:=qtop+qside div 2;
end;
 
procedure qdrawback;
begin
with form1.Canvas do
begin
brush.Color:=clwhite;
fillrect(rect(qleft,qtop,qleft+qside,qtop+qside));
end;
end;
 
procedure qdrawnumbers;
var
i,n:integer;
begin
with form1.Canvas do
begin
with font do
begin
Color:=clblack;
name:='Times New Roman';
size:=16;
style:=[fsbold];
end;
brush.Color:=clwhite;
for i:=1 to 12 do
begin
if i=1 then
n:=12
else
n:=i-1;
textout(round(qcenterx+sin(((13-i)/12)*2*pi+pi)*qside*0.4),round(qcentery+cos(((13-i)/12)*2*pi+pi)*qside*0.4),inttostr(n));
end;
end;
end;
 
procedure qdrawcircle;
begin
with form1.Canvas do
begin
with pen do
begin
Color:=clgreen;
width:=10;
end;
brush.Color:=clwhite;
ellipse(qleft,qtop,qleft+qside,qtop+qside);
end;
end;
 
procedure qdrawcenter;
begin
with form1.Canvas do
begin
with pen do
begin
Color:=clred;
width:=10;
end;
brush.Color:=clgreen;
ellipse(qcenterx-qside div 20,qcentery-qside div 20,qcenterx+qside div 20,qcentery+qside div 20);
end;
end;
 
procedure qdrawhour(n:integer);
var
m:integer;
begin
m:=n mod 12 + 1;
with form1.Canvas do
begin
with pen do
begin
Color:=clblue;
width:=20;
end;
moveto(qcenterx,qcentery);
lineto(round(qcenterx+sin(((13-m)/12)*2*pi+pi)*qside*0.2),round(qcentery+cos(((13-m)/12)*2*pi+pi)*qside*0.2));
end;
end;
 
procedure qdrawminute(n,w:integer;l:extended);
begin
with form1.Canvas do
begin
with pen do
begin
Color:=clblue;
width:=w;
end;
moveto(qcenterx,qcentery);
lineto(round(qcenterx+sin(((60-n)/60)*2*pi+pi)*qside*l),round(qcentery+cos(((60-n)/60)*2*pi+pi)*qside*l));
end;
end;
 
 
procedure qdrawclock(h,m,s:integer);
begin
qdrawback;
qdrawcircle;
qdrawnumbers;
qdrawminute(s,5,0.4);
qdrawminute(m,10,0.3);
qdrawhour(h);
qdrawcenter;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
doublebuffered:=true;
qinit;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
t:tdatetime;
begin
t:=now;
qdrawclock(hourof(t),minuteof(t),secondof(t));
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
paint;
end;
 
end.