DbGrid - Soma de valores em Multi Seleção

Quais os eventos devo usar para fazer o seguinte.

em um Dbgrid tenho uma serie de duplicatas.

gostaria de selecionar várias, (dgmultselect := true), de acordo com que fosse sendo selectionado iria somando em uma variavel, mas se fosse desselionado seria subtraido da mesma variável.

Quais os eventos.... usaria para isto

estou usando assim, ele até soma ,as não subtrai

if DbGrid1.SelectedRows.CurrentRowSelected then
Begin
somatit := somatit+dm.CDT_REC.fieldbyname(´VALOR´).AsFloat;
end
else
begin
somatit := somatit-dm.CDT_REC.fieldbyname(´VALOR´).AsFloat;
end;

T+

Obrigado