procedure DelRec(inSet:TDataSet);
begin
 if (NotEmptySet(inSet)) and // если таблица пуста - незачем выводить запрос
 (Application.MessageBox('Удалить запись?','Внимание!!!',
 mb_YesNo+mb_Iconquestion)=idYes) then
 inSet.Delete;
end;