Загрузка процессора

[Terran]

Всем привет! Подскажите пожалуста в чём здесь ошибка? я написал программу для определения загрузки процессора. В ней должен строится граффик показывающий загрузку проца.
После компиляции и её запуска граффик не строится и вылетает ошибка.

Такого содержания: "List index out of bounds (0)".

Вот код и исходник самой программы.

Загрузка проца.rar

unit Unit1;

interface

uses
  AdCpuUsage, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
I:Integer;
Begin
CollectCPUData;
For i:=0 To GetCPUCount-1 Do
Begin
If Chart1.Series[i].Count >20 Then
Chart1.Series[i].Delete(0);
Chart1.Series[i].AddXY(Time, GetCPUUsage(i)*100,
Format('%5.2f%%',[I,GetCPUUsage(i)*100]));
End;
End;
End.

[Квэнди]

У вас нет ни одной серии
Chart1.Series[i].Delete(0);
а кто за вас создавать эту серию будет ?