对一个表中所有列数据模糊查询adoquery

procedure TForm3.Button4Click(Sender: TObject);
var
ASql,AKey: string;
I: Integer;
begin
//获取关键词
AKey := Trim(Edit1.Text);

//生成SQL语句

ASql := 'SELECT * FROM 需要做的事 WHERE ';
for I := 0 to frmDataPool.qry需要做的事.FieldCount - 1 do
begin
if I = 0 then
begin
ASql := ASql + frmDataPool.qry需要做的事.Fields[I].FieldName + ' LIKE ''%' + AKey + '%''';
end else begin
ASql := ASql + ' OR ' + frmDataPool.qry需要做的事.Fields[I].FieldName + ' LIKE ''%' + AKey + '%''';
end;
end;

//  Memo1.Lines.Add(ASql)  ;
//  Exit;

//开始查询
with frmDataPool.qry需要做的事 do
begin
Close;
SQL.Text := ASql;
Open;
end;
end;