Hagamos entre todos un programa (No Novatos)

[[Caral]]

Hola
Bueno os estoy esperando.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

Saludos