void __fastcall TForm1::Button1Click(TObject *Sender)
{
TChartSeries *Serie = new TChartSeries(this);
Chart1->AddSeries(Serie);
Chart1->Series[0]->Add(10,"Valor 1",clRed);
Chart1->Series[0]->Add(30,"Valor 2",clYellow);
Chart1->Series[0]->Add(15,"Valor 3",clGreen);
}