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