[pobeda]

procedure TfmStatzv.Button1Click(Sender: TObject);
begin
if (edit1.Text<>'') then
begin
DBGrid1.DataSource.DataSet.Filter:= '(IMSI = ''qwerty'')';
DBGrid1.DataSource.DataSet.Filtered:=true;
end
else
DBGrid1.DataSource.DataSet.Filtered:=false;


end;

Вот весь код