Создание графиков функций в Chart

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    ComboBoxSeries->DropDownCount = 40;/*!!!*/
    Series1->LinePen->Width = 3; Series1->SeriesColor = clRed;
    Series2->LinePen->Width = 2; Series2->SeriesColor = clNavy;
    Series3->LinePen->Width = 4; Series3->SeriesColor = clYellow;
}
//---------------------------------------------------------------------------
#define line (-34)
void __fastcall TForm1::ButtonCreatChartClick(TObject *Sender)
{
AnsiString StrSeries = "(";
 
double a  = TryStrToFloat(ALabeledEdit->Text,  a );//1
double b  = TryStrToFloat(BLabeledEdit->Text,  b );//3
double c  = TryStrToFloat(CLabeledEdit->Text,  c );//17,12
double d  = TryStrToFloat(DLabeledEdit->Text,  d );//14
double Up = TryStrToFloat(UpLabeledEdit->Text, Up);//-50
double Do = TryStrToFloat(DoLabeledEdit->Text, Do);//57
 
long double S  = 0,
            F1 = 0,//F2 = 0,
            tmp1, tmp2; short NN = 1;
 
const double //pi = 3.14159 = M_PI,
             e  = 2.71,  E = 0.01;; //M_E
 
    Series1->Clear();  Series2->Clear();  Series2->Clear();
 
    for( int i = -100; i <= 100; i++)
    {
        tmp1 = cos((double)i/50 * M_PI_2 ) * 100;//для sin(F) (double)
        Series1->AddXY(i, tmp1);
        //-----------------------------------------------
        StrSeries = " (" + IntToStr(NN++) + ")" +
                    " (" + IntToStr(i) + ") - [" +                         \
                           FloatToStrF ((float)i/50 ,ffGeneral, 3, 2) +   \
                   "][" + FloatToStr (tmp1) + "]";
        ComboBoxSeries->Items->Add(StrSeries);
        //-----------------------------------------------
 
        tmp1 = sin((double)i/100 * M_PI_2 ) * 100;
        ///для прямой (X)?! - задайте почтоянное значение!!!к при tm1 = - 18
 
 
        Series2->AddXY(i, tmp1);
        Series3->AddXY(i, line);
    }
 
    ComboBoxSeries->ItemIndex = 0;
 
    for (int i = Do; i < Up; i++)
    {
        tmp1 = b * sin(c * (i + 1));
        tmp2 = b * sin(c * i);
        F1 = fabs((a * pow(e, tmp1) + d) - \
                  (a * pow(e, tmp2) + d)    );
 
        S += F1 + E;
        //exception! tmp = ( F2 - F1)/2  == 0;
        //for given variant of the code
    }
AnEdit->Text = FloatToStr(S);
}
//---------------------------------------------------------------------------

int W_Can, H_Can;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    W_Can  = ClientWidth/4;
    H_Can  = ClientHeight/4; Canvas->Pen->Width = 2;
}
//--------------------------------------------------------------------------- 
#define cr Canvas->Rectangle
void __fastcall TForm1::ButtonMinCClick(TObject *Sender)
{int tmp; Form1->Refresh();
 
    Canvas->Brush->Color = clAqua;  
    cr(W_Can   - 1, H_Can   - 1, W_Can*3, H_Can*3);//обводка
    cr(W_Can      , H_Can*2 - 1, W_Can*3, H_Can*2); Canvas->Brush->Style = bsClear;
    cr(W_Can*2 - 1, H_Can      , W_Can*2, H_Can*3);//оси
 
    Canvas->MoveTo(W_Can      , H_Can   + CSpinEdit1->Value); //начало  CSpinEdit1->Value = 17
    Canvas->LineTo(W_Can*3 - 1, H_Can*3 - CSpinEdit2->Value); //продолжение  CSE2->V = 34
 
    for(int i = 0; i < W_Can*2; i++)
    {
        tmp = H_Can*sin((double)i/W_Can*2 * M_PI_2);
        Canvas->Pixels[i + W_Can][tmp + H_Can*2 - 1] = clRed;
        if(i % 20 == 0)
        {Canvas->TextOutA(W_Can - 30, H_Can + i*H_Can/W_Can, i);
         Canvas->TextOutA(W_Can +  i, H_Can*3 +          10, i);
        }
    }
}
//--------------------------------------------------------------------------- 
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
    ButtonMinC->OnClick(Form1);//для CSpinEdit2 в испекторе выбрать тоже самое
}
//---------------------------------------------------------------------------