Поправить код программы

//---------------------------------------------------------------------------
 
#ifndef Unit2H
#define Unit2H
#include <vcl.h>
#pragma hdrstop
#include <Classes.hpp>
#include <math.h>
#include <stdlib.h>
#pragma package(smart_init)
//#pragma resource "*.dfm"
 
class ScaleA //класс, рисующий букву А
{
    TImage*Image1;//указатель на изображение
public:
    ScaleA(TImage*pIm=0)//конструктор класса
    {
       Image1=pIm;
    }
    void SetImage(TImage*pIm)//метод задания изображения
    {
       Image1=pIm;
    }
    int Draw() //метод рисования буквы А
    {
        if(!Image1)
            return 0;
        int font=Image1->Canvas->Font->Height;//сохранения текущего шрифта
        Image1->Canvas->Font->Height=90; //задание нового шрифта
        Image1->Canvas->TextOutA(215,150,"A"); //рисование буквы А под шкалой
        Image1->Canvas->Font->Height=font;
        return 1;
    }
};
 
class Scale //класс, рисующий шкалу
{
    TImage*Image1;
public:
    Scale(TImage*pImage=0) // конструктор
    {
 
        this->Image1=pImage;
 
    }
    void SetImage(TImage*pImage) //метод задания изображения
    {
        this->Image1=pImage;
    }
    int Draw() //метод рисования шкалы
    {
        if(!this->Image1)
            return 0;
        Image1->Canvas->Brush->Color=(TColor)RGB(255,255,255);
    Image1->Canvas->FillRect(Image1->Canvas->ClipRect); //создание белого фона для изображения
    Image1->Canvas->Brush->Color=(TColor)RGB(0,0,0);    //задание черного цвета кисти
    TRect rect;
    rect.left=190;
    rect.Top=300;
    rect.Right=290;
    rect.Bottom=305;
    Image1->Canvas->FillRect(rect); //рисование основания стрелки
    Image1->Canvas->MoveTo(240,100);//
    Image1->Canvas->LineTo(240,80); //рисование нулевой отметки на шкале
    Image1->Canvas->Brush->Color=(TColor)RGB(255,255,255);//задание белого цвета для кисти
    Image1->Canvas->TextOutA(237,65,"0"); //изображение нуля на шкале
    for(int i=1;i<=15;i++) //разметка шкалы(положительная часть)
    {
        Image1->Canvas->MoveTo(240+200*sin(i*3*3.14/180),300-200*cos(i*3*3.14/180));
        Image1->Canvas->LineTo(240+((i%5)?210:220)*sin(i*3*3.14/180),300-((i%5)?210:220)*cos(i*3*3.14/180)); //рисование делений
        if(!(i%5))     //выделение каждого 5-го штриха
        {
            char buf[4];
            itoa(i*10,buf,10); //конвертирование числа в строки
            AnsiString tmp(buf);//создание стринга
            Image1->Canvas->TextOutA(240+((i%5)?210:220)*sin(i*3*3.14/180)-3,300-((i%5)?210:220)*cos(i*3*3.14/180)-15,tmp);     //подписывание деления
        }
    }
    for(int i=1;i<=15;i++) //разметка отрицательной части шкалы(все аналогично)
    {
        Image1->Canvas->MoveTo(240-200*sin(i*3*3.14/180),300-200*cos(i*3*3.14/180));
        Image1->Canvas->LineTo(240-((i%5)?210:220)*sin(i*3*3.14/180),300-((i%5)?210:220)*cos(i*3*3.14/180));
        if(!(i%5))
        {
            char buf[4];
            itoa(i*10,buf,10);
            AnsiString tmp(buf);
            Image1->Canvas->TextOutA(240-((i%5)?210:220)*sin(i*3*3.14/180)-10,300-((i%5)?210:220)*cos(i*3*3.14/180)-15,tmp);
        }
    }
    ScaleA scalea(Image1);//создание объекта класса, рисующего букву А на шкале
    scalea.Draw();//рисование буквы А
    return 1;
    }
 
} ;
 
class Arrow //класс, рисующий стрелку
{
    TImage*Image1;//указатель на ихображения
    float grad;//и отклонение в градусах
 public:
    Arrow(TImage*pImage=0)//конструктор
    {
        Image1=pImage;
        grad=0;
    }
    void SetImage(TImage*pImage)//метод задания изображения
    {
        Image1=pImage;
    }
    int Draw(float fGrad)//метод рисования стрелки
    {
        if(!Image1)
            return 0;
        grad=fGrad;
        Image1->Canvas->MoveTo(240,300);  //установление пера к основанию стрелки
        Image1->Canvas->Pen->Width=3; //задание толщины пера
        Image1->Canvas->LineTo(240+190*sin(grad*3.14/180),300-190*cos(grad*3.14/180));  //рисование основной части стрелки
        Image1->Canvas->Pen->Width=1; //задание толщины пера(указательной части)
        Image1->Canvas->LineTo(240+205*sin(grad*3.14/180),300-205*cos(grad*3.14/180));
        return 1;
    }
};
 
class Calc//класс, вычисляющий отклонение в градусах по величине тока
{
    float value,grad;
public:
    Calc()//конструктор по умолчанию
    {
 
 
    }
    float ObtainGrad(float tmp)//метод вычисления отклононеия стрелки
    {
        value=tmp;
        if((tmp>=150)||(tmp<=-150)) //если число выходит за диапазон (-150,150), стрелка "упирается" в соответствующий край шкалы
        {
           if(tmp>=150)
               grad=45;
           if(tmp<=-150)
           {
               grad=-45;
           }
        }
        else
           grad=45.0/150*tmp;
        return grad;
    }
 
};
 
 
 
//---------------------------------------------------------------------------
#endif

const bool DrawSymbolA(TCanvas *ACanvas, const int &iX, const int &iY, const int &iFontHeight) {
    bool bDrawSuccess = false;
    if (ACanvas) {
        const int iPrevFontHeight = ACanvas->Font->Height;
        ACanvas->Font->Height = iFontHeight;
        ACanvas->TextOut(iX,iY,"A");
        ACanvas->Font->Height = iPrevFontHeight;
        bDrawSuccess = true;
    }
    return bDrawSuccess;    
}