DBGridEH中的STFilter怎么使用呢？(300分)

在论坛上查过很多答案，但是测试的时候都不能实现。请多多指教！

strFilter := 'TestNo ='＋edit1.tex;
with DM.ADOFinddo
//adofind 是adoquery控件
begin
Close;
SQL.Clear;
SQL.Add('select * from DR_example order by TestNo');
Open;
Filtered :=False;
Filter :=strFilter;
Filtered :=True;
end;

//过滤
//如果用ADO,则uses EhLibADO(详见%Ehlib%/DataService目录)
uses EhLibCDS;
//ClientDataset

DBGridEh1.STFilter.Local := True;
DBGridEh1.STFilter.Visible := True;