[Ildar-tsr]

Я не совсем понял, что вы там описали про зеленые крестики...
Делаем так (комментим весь ваш код и прописываем showmessage):

Код:

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;}
  ShowMessage('test');
end;

Нажмите на кнопку, отпишитесь вышло сообщение или нет.