delphi多条件查询

这是第一个条件的查询，是实现时间段的内容查询，下面是代码：
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add(format('select * from FD_FeeRz where [Filldate] between ''%s''',[DateToStr(datetimepicker1.Date)]));
Adoquery1.SQL.Add(format('and ''%s''',[DateToStr(datetimepicker2.Date)]));
Adoquery1.Open;
end;
然后我还想实现EDIT的查询，以下是代码：
with adoquery1 do
begin
Close;
Sql.Clear;
Sql.Add('select * from table2 where name like''%'+Edit1.text+'%''');
Open;
我的问题是哪位大哥能把上面两段代码合起来，用同一个按钮实现。
我使用的控件：adoquery dbgird datetimepiker button 数据库是
SQL server.
请大哥们给我一段代码，不要直接说你改成什么什么样子就好，谢谢！我很菜鸟！

多条件查询 delphi Delphi多条件查询问题 delphi 多条件 查询代码 如何实现delphi多条件查询 Delphi中使用sql多条件查询问题，单条件查询已实现 在Delphi中。如何实现一个Edit查询多种条件？ ASP多条件查询 多条件查询问题 [delphi] 嵌套查询 出错 delphi 组合查询问题