Delphi - Reloj analógico en delphi

procedure TForm1.Timer1Timer(Sender: TObject);

begin

paint;

end;

procedure TForm1.FormPaint(Sender: TObject);

var

  buffer: tbitmap;

  h, m, s, ms: word;

begin

decodetime(now,h,m,s,ms);

buffer:=tbitmap.create;

with buffer do

  begin

   Width:=200;

   height:=200;

   Canvas.Pen.Color:=color;

   canvas.Brush.Color:=color;

   canvas.Rectangle(0,0,200,200);

   Canvas.Pen.Width:=1;

   Canvas.Pen.Color:=cllime;

   canvas.Brush.Color:=rgb(150,200,255);

   Canvas.Ellipse(0,0,200,200);

   Canvas.Pen.Width:=1;

   Canvas.Pen.Color:=clred;

   Canvas.MoveTo(100+Trunc( sin(s/9.65)*100),100+Trunc(-cos(s/9.65)*100));

   Canvas.LineTo(100,100);

   Canvas.Pen.Width:=2;

   Canvas.Pen.Color:=0;

   Canvas.MoveTo(100+Trunc( sin(m/9.65)*100),100+Trunc(-cos(m/9.65)*100));

   Canvas.LineTo(100,100);

   Canvas.Pen.Width:=3;

   Canvas.Pen.Color:=0;

   Canvas.MoveTo(100+Trunc( sin(h/1.95)*50),100+Trunc(-cos(h/1.95)*50));

   Canvas.LineTo(100,100);

  end;

canvas.Draw(0,0,buffer);

buffer.Free;

caption:=timetostr(now);

end;