حساب مجموع حقل من grid داخل الفورم مباشرتا

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
أخي جرب هذا الكود لعله يحل المشكل

var Sum:Real;
begin
Table1.First; Sum:=0;
while not Table1.Eof do
begin
Sum:=Sum+strtofloat(Table1.fieldbyname('HT').asstring);
Table1.Next;
end;
Label2.Caption:=FloatToStr(Sum);

بالتوفيق