[Ildar-tsr]

Код:

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