مشکل TeeChart با Query

[kimia1]

سلام دوستان
یه مشکل کوچولو توی برنامه من پیدا شده..من از یک query برای استفاده با دیتا بیس که از نوع DBISAM هست استفاده میکنم. از یه chart هم برای رسم نمودار استفاده می کنم. کدی که نوشتم بصورت زیر است

pathSql:=pathname+'aboun';
sqlstr:='select * from Aboun where ((code= '+Pcode+') And (fdate>='+''''+Pfdate_combo.Text+''''+')and (ldate<='+''''+Pldate_combo.Text+''''+')) order By Fdate';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(Sqlstr);
query1.ExecSQL;
query1.Active:=true;
WAboun_dbgrid.DataSource:=datasource4;
querycheck:=true;
//label2.Caption:=sqlstr;
Query1.First;
Chart1.Series[0].Clear;
while not(Query1.Eof) do
begin
Chart1.Series[0].Add(Query1.FieldValues['worked'], Query1.FieldValues['fdate'],clred);
Query1.Next;
end;
به نظر همه چیز مرتب است. اما پس از اجرا برنامه پیغام Invalid Pointer را میده. نمیدونم مشکل چیه :گیج: لطفا کمک کنید :oops:

[kimia1]

کسی نبود جواب بده :(