Fórum Como deletar em varias tabelas????? #337007

Boa noite galera, depois de umas folgsa para vcs estou de volta.
Gostaria de saber como fazer para excluir em três tabelas.
O cód do botão excluir do form de Pedidos é este:


procedure TformPedidos.btnExcluirClick(Sender: TObject);
begin
if application.MessageBox(´Deseja realmente excluir este pedido?´,´Confirme´,
mb_YesNo + mb_iconquestion + mb_defbutton2)= idno then
exit;
try
dm.sdsItensPedido.First;
while not dm.sdsItensPedido.Eof do
begin

dm.sdsItensPedido.Delete;
dm.sdsItensPedido.Edit;
dm.sdsItensPedido.First;
end;


dm.sdsPedidos.Delete;
dm.sdspedidos.ApplyUpdates(-1);
dm.sdsItensPedido.ApplyUpdates(-1);

Calculatotal;
CalculaValorTotal;
RecebeValores;


MsgStatus(´Registro excluídos com sucesso´);
except
showmessage(´Ocorreu um erro durante a exclusão do pedido!´);
end;

inherited;
end;
Agora tenho uma terceira tabela de recebimentos, e gostaria de excluir nela também o referente pedido.
Só lembrando que nas minhas tabelas tenho um campo (Registro) que é chave Primaria. Alguem poderia dar uma luz?????