DBGrid1如何对多选中的一个字段某几行求和

比如我选中两行,则循环两次,但是只对鼠标当前点选的值求和两遍
比如
姓名 总计
张三 5.25
李四 2.23

事实上我已经通过设置DBGRID的OPTION的dbmultiselect为TRUE，按CTRL+选中上面两行记录，但只对鼠标点选的最后一条记录求和两遍，比如2.23+2.23=4。46

下面是我写的，请给改一下，谢谢！

var
i:integer;
begin
edit1.Text:='0';
for i:=1 to dbgrid1.SelectedRows.Count do
if dbgrid1.SelectedRows.CurrentRowSelected then
begin
edit1.Text:=dbgrid1.Fields[5].Value+strtofloat(edit1.Text);
end;

[解决办法]
你的循环不应是1开始吧，而是0至SelectedRows.Count-1
[解决办法]
For i:=0 To dbgrid1.SelectedRows.Count-1 do
begin
Adoquery1.GotoBookmark(pointer(dbgrid1.SelectedRows.Items[i]));
edit1.Text:=Adoquery1.FieldValues['XX']+strtofloat(edit1.Text);
End;

XX改成第5列的字段名