tchart描述ADOquery记录的问题

Question

大家帮我看一下这段代码，小弟正在学习tchart，遇到一些问题
procedure TForm1.FormCreate(Sender: TObject);
var
   str:string;
         i:integer;
begin
   str:='%'+edit1.Text+'%';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from DATA_TABLE where  名称 = '+''''+'张三'+''''+' and 时间 like '''+str+'''');
 ADOQuery1.Open;end;procedure TForm1.BitBtn1Click(Sender: TObject);
var
   a1:integer;
begin
    x:=1;
    if  ADOQuery1.Eof then
        exit;
    a1:=ADOQuery1.FieldValues['成绩'];
    showmessage(inttostr(a1));
    Series1.AddXY(x,a1,'',clRed);
    inc(x);
    series1.AddXY(x,a1,'',clred);
    series1.AddXY(x,0,'',clred);
    inc(x);
    series1.AddXY(x,0,'',clred);
    Adoquery1.Next;
end; 各位高手帮忙指点一下，谢谢！