[NumLock]

тогда уж так:

Код:

  if DBGrid1.DataSource.DataSet.Filtered then
    ShowMessage(DBGrid1.DataSource.DataSet.Filter)
  else
    ShowMessage('!Filter');