Закрасить область

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Chart"
#pragma link "Series"
#pragma link "TeEngine"
#pragma link "TeeProcs"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int xn,xk, a[3], b[3], c[3],x;
 a[0]=StrToInt(Edit1->Text);
 b[0]=StrToInt(Edit2->Text);
 c[0]=StrToInt(Edit3->Text);
 a[1]=StrToInt(Edit4->Text);
 b[1]=StrToInt(Edit5->Text);
 c[1]=StrToInt(Edit6->Text);
 a[2]=StrToInt(Edit7->Text);
 b[2]=StrToInt(Edit8->Text);
 c[2]=StrToInt(Edit9->Text);
 xn=StrToInt(Edit10->Text);
 xk=StrToInt(Edit11->Text);
 Chart1->Series[3]->AddXY(20,0);
 Chart1->Series[3]->AddXY(-20,0);
 Chart1->Series[4]->AddXY(0,20) ;
 Chart1->Series[4]->AddXY(0,-20) ;
 x=(c[0]-a[0]*xn)/b[0];
 Chart1->Series[0]->AddXY(xn,x);
 x=(c[0]-a[0]*xk)/b[0];
 Chart1->Series[0]->AddXY(xk,x);
 x=(c[1]-a[1]*xn)/b[1];
 Chart1->Series[1]->AddXY(xn,x);
 x=(c[1]-a[1]*xk)/b[1];
 Chart1->Series[1]->AddXY(xk,x);
 x=(c[2]-a[2]*xn)/b[2];
 Chart1->Series[2]->AddXY(xn,x);
 x=(c[2]-a[2]*xk)/b[2];
 Chart1->Series[2]->AddXY(xk,x);
}
//---------------------------------------------------------------------------