数据库读取画图出现错误？急!求高手帮助，内容见代码。。。谢谢！ ( 积分: 5 )

delphi+access数据表字段见下表，已经用ado连接好数据库了
date a1 b1 c1 d1 e1
12 124 154 152 154 187
13 154 145 165 184 198
14 147 165 174 124 183

编译运行时，点击BUTTON1后等较长时间后出现错误提示'Out of Memory',然后点击'OK'后，光标出现在代码while not adotable1.eof do//???运行到这里出错，什么原因呢？

procedure Button1Click(Sender: TObject);
var
Series1:TLineSeries;
i:integer;
begin
Series1:=TLineSeries.Create(Self);

adotable1.Active:=true;
adotable1.First;

while not adotable1.eof do//???运行到这里出错，什么原因呢？

series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('a1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('b1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('c1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('d1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('e1').AsInteger,'产量图',series1.SeriesColor);
adotable1.Next;
end;

delphi+access数据表字段见下表，已经用ado连接好数据库了
date a1 b1 c1 d1 e1
12 124 154 152 154 187
13 154 145 165 184 198
14 147 165 174 124 183

编译运行时，点击BUTTON1后等较长时间后出现错误提示'Out of Memory',然后点击'OK'后，光标出现在代码while not adotable1.eof do//???运行到这里出错，什么原因呢？

procedure Button1Click(Sender: TObject);
var
Series1:TLineSeries;
i:integer;
begin
Series1:=TLineSeries.Create(Self);

adotable1.Active:=true;
adotable1.First;

while not adotable1.eof do//???运行到这里出错，什么原因呢？

series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('a1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('b1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('c1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('d1').AsInteger,'产量图',series1.SeriesColor);
series1.addxy(adotable1.fieldbyname('date').AsInteger,adotable1.fieldbyname('e1').AsInteger,'产量图',series1.SeriesColor);
adotable1.Next;
end;