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;
Table1.Next;
Edit1.Text := FloatToStr(toplamBorc);
end;
finally
Table1.GotoBookmark(Bookmark);
Table1.FreeBookmark(Bookmark);
Table1.EnableControls;
end;