[NumLock]

конечно, работает: http://data.cod.ru/139021

Код:

type
  TForm1 = class(TForm)
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ClientDataSet1.FieldDefs.Add('id', ftInteger);
  ClientDataSet1.FieldDefs.Add('name', ftString, 20);
  ClientDataSet1.CreateDataSet;
  for i:=0 to 15 do
  begin
    ClientDataSet1.Append;
    ClientDataSet1.FieldByName('id').AsInteger:=i;
    ClientDataSet1.FieldByName('name').AsString:=IntToHex(i, 2);
    ClientDataSet1.Post;
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  ClientDataSet1.Filtered:=CheckBox1.Checked;
  if ClientDataSet1.Filtered then ClientDataSet1.Filter:=Edit1.Text;
end;