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

如何用adoquery对一个表中所有列进行模糊查询：

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

   //生成SQL语句

   ASql := 'SELECT * FROM 需要做的事 WHERE ';
     do
   begin
      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;