• هذه الطريقة لا تعتبر الأفضل في الحساب
• هذه الطريقة تكون بطئية في حالة عدد كبير من السجلات
• توجد عدة طرق أخرى للحساب مثل استعمال إستعلامات SQL

function ColSum(Table: TDataSet; ColName: String): Double;

begin

  try

    Table.DisableControls;

    Table.First;

    Result := 0;

    While not(Table.EOF) do

    begin

      Result := Result + Table.FieldByName(ColName).AsFloat;

      Table.Next;

    end;

  finally

    Table.EnableControls;

  end;

end;

ColSum(Sells,'Total'); 

Label.caption := ColSum(Sells,'Total').Tostring;

• ثم تكتب إسم الحقل بشكل صحيح و هذه الدالة تنتج لنا متغير من نوع Double و يمكنك تغيير نوعه لما يناسب حالتك إذا لم تكن double توفر المطلوب
• نأتي لعبارة الدالة أولا توجد Try ... finally  و هو في حال حدث أي مشكل في عملية الحساب يقوم بعمل تفعيل لمكونات من جديد
• ثم بعدها نجد الأجراء DisableControls و EnableControls في الأخير ولهما دور مهم في زيادة سرعة عملية الحساب و هذا بتوقيف المكونات و تفعيلها من جديد 
•  بعدها أستخدمت عبارة الشرط While و كان معنى الشرط هو إذا كان الجدول ليس في نهايته دعوني أصيغها بطريقة أخرى في البداية أستخدمت الكود First ‘لى الجدول لنقله للسجل الأول و بعدها قلت له بينما الجدول ليس في نهايته قم بالتالي ... و بعدها يقوم بعملية الحساب حيث ان قيمة النتيجة هي قيمتها الحالية + قيمة الحقل ثم نقول له انتقل للسجل الاخر و يكرر نفس العملية إلى أن يصل إلى نهاية الجدول EOF و هذا ببساطة كل ما في الأمر دالة بسيطة جدا و مع نتائج رائعة