مشکل Database Exception

سلام
من یک ADOTable دارم و یک تابع که رکورد جاری را حذف می کند. وقتی که جدول خالی باشد یک اثتثناء روی

میدهد.
من کد زیر رو نوشتم ولی باز هم موقع خطا از برنامه خارج می شود.

try

  Table.Delete ;

except

  on EDatabaseError do ShowMessage ('Database Error');

end;

من همین کار را کردم، اما برای من کار میکند. این Exception چه وقت رخ میدهد؟ در محیط دلفی یا هنگام اجرای برنامه بصورت جداگانه؟

نمونه برنامه‌ای را که ساخته‌ام اینجا بعنوان ضمیمه قرار داده‌ام. آنرا در C:\01 باز کنید.

این مشکل فقط در محیط دلفی اتفاق می افتد و وقتی فایل اجرایی برنامه را جدا اجرا می کنم کاملا درسته.
به نظر شما راهی داره که تو محیط دلفی هم درست کار کنه؟
با تشکر

در منوی Tools -> Debugger Options -> Language Exceptions تیک گزینه Stop On Delphi Exceptions را بردارید.

چرا اینجوری استفاده نمیکنی ؟!

  if Not Table.IsEmpty then 

    Table.Delete;

ممنون از راهنماییتان. در ضمن آقای Mashatan من منظورم این مثال خاص نبود.