Удаление того, чего нет! БД!

[NuR1k]

Тестирую прогу (свою).
В БД удалил все данные. Нажимаб на кнопку "удалить", хотя удалять то нечего и пишет ошибку.
Как это исправить??? Скриншот - http://files.mail.ru/S6MK2G?t=1

[BARNEY]

ну может проверять с начало.... что удаляем есть ли в базе.... ну или тупо

 try except end

[nervniy]

  if (adoTable.recordcount>0) then

[NuR1k]

begin
If not (DM.ADOTable1.Bof and DM.ADOTable1.Eof) then
DM.ADOTable1.Delete;
Close;
end;