RemoveAllSeries使用的问题

Question

下面这段代码可以编译、运行。
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeeProcs, TeEngine, Chart, Series, ExtCtrls;type
  TForm1 = class(TForm)
    Chart1: TChart;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Label1Click(Sender: TObject);
var
myseries:TBarSeries;
beginmyseries:=TBarSeries.Create(myseries);
chart1.AddSeries(myseries);
chart1.Series[0].Add(3000,'2000年',clTeecolor);
chart1.Series[0].Add(1000,'2001年',clTeecolor);
chart1.Series[0].Add(2000,'2002年',clTeecolor);
end;
end.下面是加了一行chart1.RemoveAllSeries;
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeeProcs, TeEngine, Chart, Series, ExtCtrls;type
  TForm1 = class(TForm)
    Chart1: TChart;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Label1Click(Sender: TObject);
var
myseries:TBarSeries;
begin
chart1.RemoveAllSeries;
myseries:=TBarSeries.Create(myseries);
chart1.AddSeries(myseries);
chart1.Series[0].Add(3000,'2000年',clTeecolor);
chart1.Series[0].Add(1000,'2001年',clTeecolor);
chart1.Series[0].Add(2000,'2002年',clTeecolor);
end;
end.
编译通不过了，试图把RemoveAllSeries放在一段代码之前是希望清除chart1中其他的图象，画出下面代码的图象，可是无法实现。

Answer 1

procedure TForm1.Label1Click(Sender: TObject);
var
myseries:TBarSeries;
begin
myseries:=TBarSeries.Create(myseries);
chart1.AddSeries(myseries);
chart1.Series[0].Add(3000,'2000年',clTeecolor);
chart1.Series[0].Add(1000,'2001年',clTeecolor);
chart1.Series[0].Add(2000,'2002年',clTeecolor);
end;procedure TForm1.Button1Click(Sender: TObject);
var
myseries:TBarSeries;
begin
chart1.RemoveAllSeries;
end;

Answer 2

chart1.repaint;放在你要放的位置也会出现这样的错误。
procedure TForm1.Button1Click(Sender: TObject);
var
myseries:TBarSeries;
begin
chart1.RemoveAllSeries;
myseries:=TBarSeries.Create(myseries);
//chart1.AddSeries(myseries);
//chart1.Series[0].Add(3000,'2000年',clTeecolor);
//chart1.Series[0].Add(1000,'2001年',clTeecolor);
//chart1.Series[0].Add(2000,'2002年',clTeecolor);
end;
加上注释的这几句就会有错，具体也不清楚，帮你一起研究。