adoquery的用法,求助

如果想用adoquery来进行查询的话，不查询的话，所有的信息都在一个页面显示的,如果我要进行查询,
begin
if edit1.Text <> '' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 表2 where name like :shr') ;
ADOQuery1.active :=false;
adoquery1.Parameters.ParamByName('shr').Value := edit1.Text;
ADOQuery1.active :=true;
end ;

end;


那什么没有效果啊?