DbGridteki sütun toplamları nasıl alınır

[mk64]

forumda arama yaptım konuyla ilgili olarak bazı örnekler buldum. Fakat kendime uyarlayamadım (acemilikten) .
DbGridte Bulunan sütunlarımı toplamak istiyorum,
bir tablem var buradaki tahsilatlar sütununu alt alta toplatmak istiyorum. nasıl yapabilirim ayrıntılı bir açıklama yaparsanız seviniri.
Ne kadar acemi olduğum belli oluyor değil mi?

[vedatkaba]

Kod: Tümünü seç

var
Bookmark : TBookmark;
toplamBorc : Real;
begin
Bookmark := Table1.GetBookmark;
Table1.DisableControls;
toplamBorc := 0;
try
Table1.First;
while not Table1.EOF do begin
toplamBorc := toplamBorc + Table1BORC.Value;(Toplanacak alan)
Table1.Next;
Edit1.Text := FloatToStr(toplamBorc);
end;
finally
Table1.GotoBookmark(Bookmark);
Table1.FreeBookmark(Bookmark);
Table1.EnableControls;
end;

Kolay gelsin