مساعدة في عملية جمع حاصل مئوي

[medreg]

procedure TForm1.Button1Click(Sender: TObject);
begin
table1.First;
while not table1.Eof do
begin
table1.edit;
table1SS.Value:=Table1BSS.value*table1TX.Value /100;
table1SS.value:=round(table1SS.value*10)/10;
table1.Next;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var t:real;
begin
t:=0;
table1.first;
while not table1.eof do
begin
table1.edit;
t:=t+table1SS.Value;
table1.next;
end;
while not table1.eof do
begin
table1.delete;
end;
table1.edit;
table1R_SS.value:=t;
table1.post;
end;

end.
لقد استعملت هذا الكود
لكن ظهرت لي مشكلة في الجمع
عنما اجمع المالغ الناتجة عن نسب مئوية يعطيني مجموع خاطئ كالمثال الموجد بالأسفل

فاليكم التوضيح أكثر

للتوضيح توجد عبارة أو خيلر في الإكسيل
في خيارات الحساب تقول : الدقة كما في العرض
وهذه العبارة او الخيار لا بد من تأشيره لأن الدور الذي يقوم به هو جمع المبالغ كما هي ظاهرة على الشاشة
وأعطي مثال : لنفرض ان لدي جدول وبه ثلاث اعمدة
العمود الأول مبلغ قاعدي
العمود الثاني نسبة
العمود الثالث مبلغ النسبة

المبلغ الأول =============== النسبة% ========== حاصل النسبة
1253.23 ============= 12.00 ================ 150.39
2350.28 ============= 5.00 ================= 117.51
1362.52 ============= 10.50 ================ 143.06
2562.20 ============= 15.00 ================ 384.33
=========
في حالة عدم تأشيرالخيار يكون مجموع حاصل النسبة ============= 795.30 ========== وهذا هو الخطأ
وفي حالة تأشير الخيار يكون مجموع حاصل النسبة ========== 795.29 ==========وهذا هو الصواب
ما اريده كيف يمكنني ترجمة هذا الخيار في البرنامج المعمول بالدلفي7 حتى لا يعطيني مجموع المبالغ خاطئ كهذا المثال

هذا هو قصدي من المشكلة التي تواجهني
وهل من كود برمجي بلغة الدلفي7 يحل محل هذه الصيغ التي تستعمل في Excel

=ROUNDDOWN(B24*C24/100;2)
=ROUNDDOWN(B24*C24/100;1)

=ROUNDUP(B24*C24/100;2)
=ROUNDUP(B24*C24/100;1)

=ROUND(B24*C24/100;2)
=ROUND(B24*C24/100;1)

[medreg]

لاحولى ولا قوة الا بالله العلي العظيم
ما هذا يا مبرمجين الجلفة
يا للعار
كل هذه الزيارات لمواضيعي ولا أحد يرد
لا بد من أن مواضيعي غير مرغوب فيها
ولهذا لم يتم الرد عليها
أربع مواضيع بدون رد
فهذا عيب وعار وكنت أظن ان نحن الجزائريين لنا غيرة على ابناءنا
وكل من قصدنا للمساعدة فنحن اهل لمساعدته اكثر من غيرنا
لاحولى ولا قوة الا بالله