Cxgrid 筛选之后，如何通过点一个按钮，实现当前显示内容的全选？(100分)

比如，有个表：（选择 列为 checkbox）
选择 序号 值
1 1
2 2
3 1
4 2
通过点 “值”这个列名上面的 小三角，选择 2，之后，cxgrid，就显示 2，4 这两条记录了，我想点一个 button 实现 2，4的同时选择 即checkbox.check := ture
怎么写这个语句呢？以下语句 只能实现 不筛选的时候的全选，筛选之后，再使用这些语句，是不会对筛选之后的结果起作用的。
procedure TMainForm.N6Click(Sender: TObject);
var
i:integer;
begin

for i := 0 to GridDBTableView1.DataController.RecordCount-1do
GridDBTableView1.DataController.
Values[i, 0 ]:=true;

end;