كيف تفريغ جدول في قاعدة بيانات AbsoluteDB

[bakhcha]

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

كود :

procedure TForm6.Button2Click(Sender: TObject); begin MessageDlg('هل تريد فعلا تفريغ الجدول'),MtWarning,MbOkCancel,O); Data1.ABSTable2.Close;  Data1.ABSTable2.EmptyTable;  Data1.ABSTable2.open; end;

في انتظار ردودكم تقبلوا تحياتي

[أبو معاذ]

السلام عليكم.

كود :

IF MessageDlg('empty table? ', mtConfirmation, [mbYes, mbNo], 0) = mrYes then Begin تضع إجراء التفريغ هنا end

[bakhcha]

---

الف شكر لك الاخ أبو معاذ عملت بالطريقة المشار اليها من طرفكم لكن للأسف لم تنجح معي والخطأ كما ترونه في الصورة

---

شكرا  من لا يشكر الناس لا يشكر الله
لقد تم ايجاد الحل
وللفائدة

كود :

procedure TForm6.Button2Click(Sender: TObject); begin IF MessageDlg('   هل تريد فعلا تفريغ الجدول نهائيا.؟ ', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Data1.ABSTable2.Close; Data1.ABSTable2.EmptyTable; Data1.ABSTable2.open; end; end;

[Mustapha29]

else
exit;