Eliminar datos de dos tablas al mismo tiempo

Hola.. Mira necesito con urgencia una información...
Deseo eliminar el registro en dos tablas al mismo tiempo.. Por ejemplo.. Tengo mi tabal documentos y la tabla Historicodocumento, quiero que al dar clic en eliminar me elimine automáticamente en las dos tablas.. Pero no me pasa eso... Sigue siempre el registro.- Mi código que puse es este...
De antemano mil gracias
integer respuestad
noficio = sle_nreg.text
respuestad = messagebox("Mensaje", "Seguro de Eliminar el Reg", Exclamation!,YesNo!,2)
If respuestad =1 then
DECLARE EliminarDocumento PROCEDURE FOR EliminarDocumento
@NOficio = Noficio ;
execute EliminarDocumento;
wf_verificasql( )
DECLARE EliminarHistorico PROCEDURE FOR EliminarHistoricoDocumento
@NOficio = Noficio ;
execute EliminarHistorico;
wf_verificasql( )
Messagebox("Mensaje","Dato Eliminado")
Else
Messagebox("Mensaje"," Dato No Eliminado")
End if