Checkbox no quantum grid

Tive que adicionar em uma coluna a prorpiedade checkbox, e preciso criar um botao que marque todos esses itens da lista, eu criei uma rotina que faz o seguinte:

Q_Clientes.First;While (not Q_Clientes.EOF) dobegin if (Q_Clientes.State in [dsInsert]) then Q_Clientes.Edit; Q_Clientes.FieldByName('Imprimir').AsFloat := 1; //no caso 1 é quando esta marcado e 0 para desmarcado Q_Clientes.Post; Q_Clientes.Next;end;o codigo ta no evento onclick do botao.
beleza esse código teria que resolver o problema, só que no quantum grid ele nao atualiza o check, tenho q sair e entrar novamente no form.

Alguem já passou por isso ???

Estou utilizando delphi 5, um Componente TQuery e um DataSource e o quantum grid.

Obrigado!!

Abraçoss!!!!