مشكلة في افراغ قاعدة البيانات

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
قاعدة البيانات المستعملة absolute database
الكود المستعمل هو كالتالي

كود :

procedure TForm1.Button4Click(Sender: TObject); begin   with DM do   begin   Table1.Close;   Table1.emptytable;   Table1.Open;   Table1.Refresh;   end; end;

الغريبة ان هذا الكود يعمل بشكل جيد
وفي بعض الأحيان يعطي رسالة خطأ
[attachment=4185]
اين المشكل جزاكم الله عنا كل خير

[لؤي]

السلام عليكم

كود :

for i := mytable.RecordCount - 1 downto 0 do begin     mytable.Delete; end; mytable.Refresh;