Будем считать что основная таблица - Master, а подчиненная Slave, поле для связи Code (русский язык использовать не станем
)
Код:
//Подчиненная таблица
var
q:TADOQuery;
DelRecCode:Integer;
begin
... //тут спрашивали удалять или нет
q:=TADOQuery.Create(nil);
q.Connection:=Form1.ADOTable1.Connection; //Ну или какое у тебя там соединение :)
q.SQL.Text:='DELETE FROM Slave WHERE Slave.Code = :Code';
q.Parameters.ParseSQL(q.SQL.Text,true);
q.Parameters.ParamByName('Code').Value:=Form1.ADOTable1.FieldByName('Code').AsInteger;
try
q.ExecSQL;
except
MessageDLG('Error!',mtError,[mbOk],0);
end;
q.Free;
//Далее удаляй из основной таблицы
end;
ЗЫЖ Писал прямо тут, так что могут быть очепятки