Каскадное удаление, не могу понять..(

[lvl]

дана бд mc access(две таблицы - главная и подчиненная(связанные между собой)), связь в делфи осуществляется через adotable
Хочу осуществить удаление данных, то есть при удалении записи в одной таблице должна удалится запись и в другой.
Код:

if messagedlg( 'Удалить запись?',mtconfirmation, [mbOK,mbCancel ], 0) = mrOK then
begin
if DataModule1.ADOTable1.FieldByName(' Фамилия').Value=DataModule1.ADOTabl e2.FieldByName('ФИО').Value then
begin
DataModule1.ADOTable1.Delete;
DataModule1.ADOTable1.Delete;
end;
end;

Удаление совершается, но несвязанных записей, во второй таблице удаляется другая запись...Подскажите, в чем проблема?не могу разобраться