График функции y=a(x-b)^2+c

void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->MoveTo(200, 10);
Canvas->LineTo(200, 400);
Canvas->MoveTo( 10, 200);
Canvas->LineTo(400, 200); // Рисует оси x и y
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawButtonClick(TObject *Sender)
{
float k=StrToFloat(af->Text), 
float b=StrToFloat(bf->Text); // Переменные из текстовых полей
float c=StrToFloat(сf->Text); // Переменные из текстовых полей 
for ( int i = 0; i < 20; i++ )
Canvas->Pixels[i+10][400 - a*(i-b)*(i-b)+c] = (TColor)(clBlue);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
float a,b,x,c;
Series1->Active=false;  //избежать мелькания изображения при
Series1->Clear();       //Для замены предыдущих данных
b=StrToFloat(Edit1->Text);  //Получение границ отрезка
c=StrToFloat(Edit2->Text);
a=StrToFloat(Edit3->Text);
for(int x=0;x<c;x++)
{
    Series1->AddXY(x, (a*(x-b)*(x-b)+c), "", clRed);    //Точка первого графика
   }                    //Перейти к следующей точке
    Series1->Active=true;       //Отобразить графики
 
 
 
 
 }

b=StrToFloat(Edit1->Text);  //Получение границ отрезка
c=StrToFloat(Edit2->Text);
a=StrToFloat(Edit3->Text);