График в TChart заштрихован

#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Graphics::TBitmap*cells=new Graphics::TBitmap; //Битмап, отвечающий за сеть
Graphics::TBitmap*figurs=new Graphics::TBitmap; //Битмап, отвечающий за фигуры
bool show=1;
bool doit=1; //0 - не заносим координаты в массив, 1 - заносим
int P,V,T;
int i, j, k;
int masP[2000];
int masV[2000];
int masT[2000];
int max;
const R=8.31;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//--------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image->Canvas->Pen->Width=5;
Image->Canvas->Pen->Color=clRed;
cells->Transparent=0;              //Включаем прозрачность у Битмапа с сетью, чтобы он не перекрывал Битмап с фигурами
cells->TransparentColor=clWhite;  //Цвет прозрачности - белый
cells->Canvas->Pen->Color=clGray;
//Размеры обоих Битмапов подгоняем под размеры Image
cells->Width=Image->Width;         figurs->Width=Image->Width;
cells->Height=Image->Height;       figurs->Height=Image->Height;
 //Вот тут рисуем координатную сеть
int size=20; //Размер одной клетки
   for(int i=0;i<Image->Width;i+=size)
   {
     for(int j=0;j<Image->Height;j+=size)
   {
 
       cells->Canvas->Rectangle(i,j,i+size,j+size);
         }
         }
  Image->Canvas->Draw(0,0,cells);   //Отрисовываем полученное изображение на Image1
 
}
//---------------------------------------------------------------------------}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageClick(TObject *Sender)
{
doit=!doit;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 if(doit){
   if (Button==mbLeft)
        {
        V=X; P=Y;
  Image->Canvas->MoveTo(X,Y);
            }
       }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
V=X; P=Y;
  if(doit)
 {
Caption = "Положение курсора : X = "+ IntToStr(V) + ", Y = " + IntToStr(P);
if (Shift.Contains(ssLeft))
{
Image->Canvas->LineTo(X,Y);
 masP[i]=P;
 masV[i]=V;
 masT[i]=(masP[i]*masV[i])*0.1/8.31;
 
 Memo->Lines->
 Add("P: "+IntToStr(masP[i])+ " V: "+IntToStr(masV[i])+ " T: "+IntToStr(masT[i]));
 i++;
 
       }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 
 
   Chart1->Series[0]->Clear();
for (i=0; i<2000; i++)
{   if( masV[i]!=0)
         Chart1->Series[0]->AddXY( masT[i],masV[i]);
             }
 
 
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Chart2->Series[0]->Clear();
for (i=0; i<2000; i++)
{   if( masP[i]!=0)
    Chart2->Series[0]->AddXY( masT[i],masP[i]);
             }
 
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Chart3->Series[0]->Clear();
for (i=0; i<2000; i++)
{   if( masP[i]!=0)
Chart3->Series[0]->AddXY( masV[i],masP[i]);
             }
 
      }

        for ( int i = -5; i <= 5; i++ )
        {
                Series1->AddXY( i, sqrt ( 25 - i * i ) );
        }
 
        for ( int i = 5; i >= -5; i-- )
        {
                Series1->AddXY( i, -sqrt ( 25 - i * i ) );
        }