在线等待高手指出下面代码的错误。

Question

Uses TeeProcs;procedure TForm1.Button3Click(Sender: TObject);
var
  Series1: TChartSeries;
begin
  if rdbLine.Checked = True then
     iType := 0
  Else if rdbPie.Checked = True then
     iType := 1
  Else if rdbBar.Checked = True then
     iType := 2 ;  Case iType of
    0:
      begin
        ChangeSeriesType(Series1,TChartSeriesClass(TLineSeries));
        with Series1 do
        begin
          Series1.Add(2212,'南通局话务量',clred);
          Series1.Add(2545,'如皋局话务量',clred);
          Series1.Add(1765,'如东局话务量',clred);
          Series1.Add(2355,'海门局话务量',clred);
          Series1.Add(2364,'海安局话务量',clred);
          Series1.Add(2317,'大丰局话务量',clred);
        end;
      end;
    1:
      begin
        ChangeSeriesType(Series1,TChartSeriesClass(TPieSeries));
        with Series1 do
        begin
          Series1.Add(2212,'南通局话务量',clred);
          Series1.Add(2545,'如皋局话务量',clred);
          Series1.Add(1765,'如东局话务量',clred);
          Series1.Add(2355,'海门局话务量',clred);
          Series1.Add(2364,'海安局话务量',clred);
          Series1.Add(2317,'大丰局话务量',clred);
        end;
      end;
    2:
      begin
        ChangeSeriesType(Series1,TChartSeriesClass(TBarSeries));
        with Series1 do
        begin
          Series1.Add(2212,'南通局话务量',clred);
          Series1.Add(2545,'如皋局话务量',clred);
          Series1.Add(1765,'如东局话务量',clred);
          Series1.Add(2355,'海门局话务量',clred);
          Series1.Add(2364,'海安局话务量',clred);
          Series1.Add(2317,'大丰局话务量',clred);
        end;
      end;
  end;控件包括：一个FORM，一个DbChart,三个RadioButton,一个Button，
以上代码是想把图形报表在三种图形之间动态切换，但是老是报读地址错误，请高手指教。