Рисование столбчатой диаграммы на Canvas

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Image1->Picture->Bitmap->Width=Image1->Width;
    Image1->Picture->Bitmap->Height=Image1->Height;
    Image1->Picture->Bitmap->PixelFormat = pf32bit;
    Image1->Picture->Bitmap->Canvas->Brush->Color = clRed;
    for(int i=0;i<5;i++)
     Image1->Picture->Bitmap->Canvas->FillRect(
      Rect(4+i*61,320,44+i*61,320-i*50)); 
}

void fRetScrC(int *sx, int *sy, float rx, float ry, float xmax, float ymax, float xmin, float ymin, int w, int h)
//возвращает экранные координаты
//параметры sx, sy - экранные координаты, rx,ry - реальные декартовы координаты
//max/min - минимальные/максимальные реальные координаты из массива
//w,h - ширина/высота экранной области, куда будем рисовать
{
    float k[2];
 
      k[0]=ymax-ymin;
      k[1]=xmax-xmin;
 
     if(k[1]/k[0]<1 && w/h<1){  //saving draw proportion
      k[1]=k[0];
      h=w;
     }
     else
     {
      k[0]=k[1];
      w=h;
     }
 
     *sx = (w/k[0])*(ry-ymin);
     *sy = h-(h/k[1])*(rx-xmin);
}
 
void fRetRealC(float *rx, float *ry, int sx, int sy, float xmax, float ymax, float xmin, float ymin, int w, int h)
//возвращает реальные координаты из экранных, параметры те же самые
{
    float k[2];
 
      k[0]=ymax-ymin;
      k[1]=xmax-xmin;
 
 
     if(k[1]/k[0]<1 && w/h<1){  //saving draw proportion
      k[1]=k[0];
      h=w;
     }
     else
     {
      k[0]=k[1];
      w=h;
     }
 
     *ry = ymin+(sx*k[0]/w);
     *rx = k[1]+xmin-(sy*k[1]/h);
}