Очистка Chart

void __fastcall TForm1::Button3Click(TObject *Sender)
{
int mas[5];
String nameS;
int r;
String Temp = "Provider";
 
for(int i=0; i<10; i++)
mm[i]= Temp + (String)(i);
 
    //----------------------------------------------
    TLineSeries *iNSeries = new TLineSeries(Chart1);
//    iNSeries->Name = Temp + (String)(Chart1->SeriesList->Count);
    iNSeries->Name = mm[num];
    Chart1->AddSeries(iNSeries);
    //----------------------------------------------
 
    iNSeries->LinePen->Width = 3;
 
    for(int i = 0; i<5; i++){
    r = rand()%10;
    mas[i] = r;
    }
 
    for( int i = 0; i < 5; i++)
    {   //iNSeries->SeriesColor = Red;
    // iNSeries->SeriesColor = (TColor)RGB(200 + mas[i], 50 - mas[i+2],100 + mas[i+3]);
        Application->ProcessMessages();
        Sleep(32);
      //  iNSeries->AddXY(i, cos((float)i/cosS * M_PI_2 ) * 100);
 
       iNSeries->AddXY(i, mas[i]), random(200)-100, "";
 //      cosS++;
    }
 
 num = num + 1;
}

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Chart1->RemoveAllSeries(); 
Chart1->SeriesList->Clear(); 
num = 0;
}