Out Of Memory

[لؤي]

سلام الله عليكم

أقوم بمعالجة ملف نصي و حساب مجموعة إحصاءات من خلاله و أعرضها في جدول في الذاكرة و عند الإنتهاء من الحساب وضعت زر لكي أقوم بمسح محتوى الجدول و الذاكرة لكي لا حظت أن الذاكرة لا تمسح و هذا لما أعيد بعث حساب آخر فيطلع رسالة "Out Of Memory ".

أين الخلل يا ترى ؟

أرفق كود المسح

PHP كود :

repeat
table1.Delete;
table1.Last;
until table1.Bof;
button1.Enabled:=true;
table1.Free;