работа с графикой в С++ Builder

#include "math.h"
#include "DateUtils.hpp"
double x0, y0, a, b;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Width = 600;
    Height = 500;
    x0 = ClientWidth/2, y0 = ClientHeight/2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Caption = "SecondOf(Now())" + (String)SecondOf(Now());
 
    Canvas->Pen->Width = 2;
    Canvas->Pen->Color = (TColor)0x0000fabc;
    Canvas->Brush->Color = clScrollBar;
    Canvas->Ellipse(x0 - 240, y0 - 200,x0 + 240, y0 + 200);
    Canvas->Brush->Color = clBtnShadow;
    Canvas->Ellipse(x0 - 2, y0 - 2,x0 + 1, y0 + 1);
 
    Canvas->Pen->Color = clScrollBar;
    Canvas->MoveTo(x0 - a*10, y0 - b*10);
    Canvas->LineTo(x0 + a*190, y0 + b*196);
 
    a = cos((SecondOf(Now())*6 - 90)*M_PI/180);
    b = sin((SecondOf(Now())*6 - 90)*M_PI/180);
 
    Canvas->Font->Size = 48;
    Canvas->Brush->Color = clScrollBar;
    Canvas->Font->Name = "Palace Script MT";
    Canvas->TextOut(x0 - Canvas->TextWidth("Manifik")/2, y0 - 144, "Manifik");
    Canvas->Pen->Color = clRed;
    Canvas->MoveTo(x0 - a*15, y0 - b*15);
                   //----------------------
    Canvas->LineTo(x0 + a*190, y0 + b*196);
                   //----------------------
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "copyClockMFC1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}
//---------------------------------------------------------------------------
#include "math.h"
#include "DateUtils.hpp"
double x0, y0, wCh, hCh, a, b;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Width = 800;
    Height = 600;
    x0 = ClientWidth/2, y0 = ClientHeight/2;
    wCh = x0 * 3 / 4, hCh = y0 * 3 / 4;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Caption = "SecondOf(Now())" + (String)SecondOf(Now());
 
    Canvas->Pen->Width = 2;
    Canvas->Pen->Color = (TColor)0x00f1cf1c;
    Canvas->Brush->Color = clHotLight;
    Canvas->Ellipse(x0 - wCh, y0 - hCh - 20,x0 + wCh, y0 + hCh + 20);
 
    a = cos((SecondOf(Now())*6 - 90)*M_PI/180);
    b = sin((SecondOf(Now())*6 - 90)*M_PI/180);
 
    for(int i = 0; i < 360; i = i + 6)
    {
        double a = cos((i - 90)*M_PI/180);
        double b = sin((i - 90)*M_PI/180);
        Canvas->Pen->Width = 1;
        Canvas->Pen->Color = clWhite;
        Canvas->MoveTo(x0 + a*hCh, y0 + b*hCh);
        if(i % 30)Canvas->LineTo(x0 + a*(hCh - 14), y0 + b*(hCh - 14));
        else      Canvas->LineTo(x0 + a*(hCh -  20), y0 + b*(hCh -  20));
    }
 
    Canvas->Pen->Width = 3;
    Canvas->Font->Size = 60;
    Canvas->Font->Name = "Palace Script MT";
    Canvas->Font->Color = clYellow;
    Canvas->TextOut(x0 - Canvas->TextWidth("Manifik")/2, y0 - 144, "Manifik");
    Canvas->Font->Name = "Times New Roman";
    Canvas->Font->Size = 18;
    Canvas->Font->Color = clGrayText;
    Canvas->TextOut(x0 - Canvas->TextWidth(Now())/2, y0 + 144, Now());
 
 
    Canvas->Pen->Color = clRed;
    Canvas->MoveTo(x0 - a*15, y0 - b*15);
                   //----------------------
    Canvas->LineTo(x0 + a*(hCh -  25), y0 + b*(hCh -  25));
                   //----------------------
}
//---------------------------------------------------------------------------