Построение Графика в Image

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
//строю график pow(3,t)  (то есть 3 в степени X на графике)
 
    double calcMax =  165;
    double calcMin = -50;
    double tMax    =  10;
    double tMin    = -10;
 
 
    double tScale=Image1->Width /(tMax - tMin);
 
    double calcScale = Image1->Height / (calcMax - calcMin);
 
    TCanvas * canvas;
 
    canvas=Image1->Canvas;
 
    canvas->Brush->Color=clWhite;
 
    canvas->FillRect(Rect(0,0,(tMax-tMin)*tScale,(calcMax-calcMin)
    *calcScale));
 
    canvas->Pen->Width=3; // толщина линии
    canvas->Pen->Color=clBlue; // цвет линии
 
    canvas->MoveTo(0,(calcMax-pow(3,tMin))*calcScale);
 
    for (double t= tMin; t< tMax; t+=1 / tScale)
    canvas->LineTo ((t - tMin) * tScale,
    (calcMax - pow(3,t)) * calcScale);
 
 
 
 
    canvas->Pen->Width=3; // толщина линии
    canvas->Pen->Color=clTeal; // цвет линии
 
//строю график y=28
   Image1->Canvas->MoveTo(0,(calcMax-28)* calcScale);
   Image1->Canvas->LineTo(Image1->Width,(calcMax-28)* calcScale);
 
 
//Рисуем координаты
 
   canvas->Pen->Width=1;  // толщина линии
   canvas->Pen->Color=clBlack; // цвет линии
 
   // ось икс
   Image1->Canvas->MoveTo(0,(calcMax - 0)* calcScale);
   Image1->Canvas->LineTo(Image1->Width,(calcMax)* calcScale);
   // ось игрик
   Image1->Canvas->MoveTo(Image1->Width/2,Image1->Height);
   Image1->Canvas->LineTo(Image1->Width/2,0);
 
//Рисуем стрелочки у осей координат
 
   //стрелочка у игрика
 
    Image1->Canvas->MoveTo((Image1->Width/2)-5,5);
    Image1->Canvas->LineTo( Image1->Width/2,0 );
    Image1->Canvas->LineTo((Image1->Width/2)+6,6);
 
   //стрелочка у икса
 
    Image1->Canvas->MoveTo(Image1->Width-5,(calcMax)* calcScale-5);
    Image1->Canvas->LineTo(Image1->Width,(calcMax)* calcScale);
    Image1->Canvas->LineTo(Image1->Width-6,(calcMax)* calcScale+6);
 
// в цикле проставить деления и цифры напр.(-n...0...n)
 
   // для оси икс
   for (double t= tMin; t< tMax; )   //я думаю как то так...
   {
   Image1->Canvas->MoveTo(); //черточки я сам постараюсь написать
   Image1->Canvas->LineTo();
   }
   // для оси игрик
   for ( ; ; )
   {
   Image1->Canvas->MoveTo();
   Image1->Canvas->LineTo(); 
 
}
//---------------------------------------------------------------------------

   // для оси икс
   for (double t= tMin; t< tMax;t+=10 )   //я думаю как то так...
   {
   Image1->Canvas->MoveTo(t-3,100); //черточки я сам постараюсь написать
   Image1->Canvas->LineTo(t+3,100);
   Image1->Canvas->TextOutA(t,100+5,FloatToStr(t*10));
   }

Image1->Canvas->Pen->Color=ColorBox1->Selected;