DBGrid et CheckboxColumn

Bonjour à tous
dans une dbgrid j'ai une colonne avec des prix.
j'ai une fonction qui additionne ces prix.
j'ai une colonne avec bouton type checkboxcolumn.
je voudrais que ma fonction n'additionne que les lignes checkées.
Avec la fonction je ferai si ligne checkée , je saute la ligne.

le problème , j'ai ce code mais si je clique sur une checkbox rien ne se passe, l'état ne change pas. La colonne avec la chexkox correspond à la colonne de ma dbf type ftboolean.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.DBGrid1UserCheckboxState(Sender: TObject; Column: TColumn; var AState: TCheckboxState); begin if RecList.CurrentRowSelected then AState := cbChecked else AState := cbunchecked; end;   procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if Column.Index=1 then RecList.CurrentRowSelected := not RecList.CurrentRowSelected; end

---

avec RecList := TBookmarkList.Create(DbGrid1) dans TForm.create et dans
type
private
RecList: TBookmarklist;

je pense qu'au niveau de " if RecList.CurrentRowSelected " il faut une autre condition, j'ai essayé avec l'index de la colonne checkbox mais rien.