Составить объемную диаграмму с выборкой количества столбцов и с процентным соотношением

TForm1 *Form1;
int pros;
int stolb;
int mass[100] ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int g=0,i=0;
for (i=0;i<100;i++ )
{
g=g+3;
mass[i]=g;
}
////stolb=StrToInt(Edit2->Text);
i=StrToInt(Edit1->Text);
        TColor oldColor=Form1->Canvas->Brush->Color;
        Form1->Repaint();///очистка формы
        //Меняем текущую кисть
        Form1->Canvas->Brush->Color = RGB(255,0,0);
 
        //вывод примитивов
        Form1->Canvas->MoveTo(250,300-mass[i]);
        Form1->Canvas->LineTo(250,300);
 
        Form1->Canvas->MoveTo(350,300-mass[i]);
        Form1->Canvas->LineTo(350,300);
 
        Form1->Canvas->MoveTo(250,300-mass[i]);
        Form1->Canvas->LineTo(350,300-mass[i]);
 
        Form1->Canvas->MoveTo(250,300);
        Form1->Canvas->LineTo(350,300);
 }