используем функцию для удаления записи из таблицы Жанр.
Допустим,есть на форме компонент типа TDataSource с именем DataSourceZhanr, который связан с ADOQueryZhanr (который связан с таблицей Жанр); также есть компонент типа TDataSource с именем DataSourceMusic, который связан с ADOQueryMusic (который связан с главной таблицей Музыка).
В этом случае функция должна вызываться со следующими параметрами:
DeleteTheRecord(DataSourceZhanr->DataSet,DataSourceMusic->DataSet,AnsiString("id"),AnsiString("id_Жанр"),AnsiString("10"));
Функция должна реализовать следующую логику:
1. проверяем, есть ли в источнике данных DataSourceMusic идентификатор is_Жанр с id=10; если есть, то выводим сообщение о невозможности удалить запись (см. выше текст сообщения);
2. если удаление возможно, выполняем удаление, используя название ключевого поля таблицы Жанр id (аргумент AnsiString id_dest_table, в нашем случае это "id") и значение этого поля (в нашем случае - "10"); по результатам удаления (успех/ошибка) выводим сообщение с информацией о результатах (успех/ошибка).

помогите написать функцию