Использование CANVAS

int sec = 0, min = 0;
double hour = 0;
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
TPoint Rotate(TPoint centr, int r, double ugol){
  int x = r * sin(ugol) + centr.x;
  int y = r * -cos(ugol) + centr.y;
  return Point(x,y);
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  _SYSTEMTIME  systemtime, *p = &systemtime;
 
  sec++;
  if (sec == 60) {
  GetLocalTime(p);
  sec = p->wSecond;
  min = p->wMinute;
  hour = (p->wHour >= 12? p->wHour - 12 : p->wHour) + double(min)/60;}
  InvalidateRect(Form1->Handle, 0, 1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
  Canvas->Pen->Color = clBlack;
  Canvas->Brush->Color = clHotLight;
 
  int r = 220;
  double ugolsm = 2 * M_PI / 60;
  TPoint centr = Point(ClientHeight / 2, ClientWidth / 2), point, StrMin[4], StrHour[4];
 
  StrMin[0] = centr;
  StrMin[2] = Rotate(centr,r,ugolsm*min);
  StrMin[1] = Rotate(centr,r/3,ugolsm*(min-1.2));
  StrMin[3] = Rotate(centr,r/3,ugolsm*(min+1.2));
 
  StrHour[0] = centr;
  StrHour[2] = Rotate(centr,r*0.7,ugolsm*hour*5);
  StrHour[1] = Rotate(centr,r/6,ugolsm*(hour*5-3));
  StrHour[3] = Rotate(centr,r/6,ugolsm*(hour*5+3));
 
  for (int i = 0; i<60; i++){
    if (!(i%5)){
      point = Rotate(centr,r+11,ugolsm*i);
      Canvas->Ellipse(point.x - 2, point.y - 2, point.x + 4, point.y + 4);
      }
    else{
      Canvas->PenPos = Rotate(centr,r+11,ugolsm*i);
      point = Rotate(centr,r+12,ugolsm*i);
      Canvas-> LineTo(point.x,point.y);
    }
  }
  point = Rotate(centr,r,ugolsm*sec);
  Canvas->Pen->Color = clSilver;
  Canvas->Polygon(StrMin, 3);
  Canvas->Brush->Color = clActiveCaption;
  Canvas->Polygon(StrHour, 3);
  Form1->Canvas->PenPos = centr;
  Canvas->Pen->Color = clRed;
  Form1->Canvas->LineTo(point.x,point.y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Form1->DoubleBuffered = true;
  _SYSTEMTIME  systemtime, *p = &systemtime;
  GetLocalTime(p);
  sec = p->wSecond;
  min = p->wMinute;
  hour = (p->wHour >= 12? p->wHour - 12 : p->wHour) + double(min)/60;;
}