Как создать график функции!

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <iostream.h>
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a,a1,b,b1,c,c1,d,d1,w,w1,v,v1,e,e1;
a = Edit1 -> Text.ToDouble();
b = Edit2 -> Text.ToDouble();
c = Edit3 -> Text.ToDouble();
a1 = Edit4 -> Text.ToDouble();
b1 = Edit5 -> Text.ToDouble();
c1 = Edit6 -> Text.ToDouble();
d = b*b-4*a*c;
d1=b1*b1-4*a1*c1;
if(d>0)
{
e=sqrt(d);
w=(-b+e)/(2*a);
v=(-b-e)/(2*a);
Memo1 -> Lines-> Add("Перший корінь:");
Memo1 -> Lines -> Add(v);
Memo1 ->Lines->Add("Другий корінь:");
Memo1 -> Lines -> Add(w);
}
else if(d<0)
{
Memo1 -> Lines-> Add("Нема рішень:");
}
if(d1>0)
{
e1=sqrt(d1);
w1=(-b1+e1)/(2*a1);
v1=(-b1-e1)/(2*a1);
Memo2 -> Lines-> Add("Перший корінь:");
Memo2 -> Lines -> Add(v1);
Memo2 ->Lines->Add("Другий корінь:");
Memo2 -> Lines -> Add(w1);
}
else if(d1<0)
{
Memo2 -> Lines-> Add("Нема рішень:");
}
}
//---------------------------------------------------------------------------