Аналоговые часы в c++ bilder 6

[Zuhur]

Не могу сделать стрелку для минут и часов


вот код:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#include <cmath>
#include <Math.hpp>
#include <DateUtils.hpp>
float alpha;
int r=50,x,y;
TPoint O(100,100);
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{

Image1->Canvas->Brush->Color=clBtnFace;
Image1->Canvas->FillRect(Image1->ClientRect);
Image1->Canvas->Pen->Color=clRed;
Image1->Canvas->Ellipse(5,5,170,175);

alpha=90-360/60.*SecondOf(Time());

x= O.x+ r*std::cos(DegToRad(alpha));
y= O.y+ -r*std::sin(DegToRad(alpha));

Image1->Canvas->MoveTo(O.x,O.y);
Image1->Canvas->LineTo(x,y);
}