Fórum Delphi 7 SQL Não grava #335504

Estou fazendo uma aplicação com Delphi 7 e SQL Server 7, uso para conexão ao Banco ADO

Uso para consultas e manipulação Query´s

Estou fazendo um cadastro onde será gravado em várias tabelas, por exemplo:

Tabela Principal => Pessoa
Tabelas secundárias => Telefones
Referencia
Contas Bancárias
etc etc

Basicamente o código está da seguinte forma:

inicio uma transação: BD.BeginTrans;
Faço todas os insert, usando query´s
e no final BD.CommitTrans;

Só que está gravando somente a inserção da ultima tabela, ou da ultima query.

Fiz um teste, onde coloque logo após a inclusão da primeira tablea, (Pessoa) um committrans e depoins um begintrans... aí gravou a tabela pessoa e tbm a ultima tabela...
Resumindo, está gravando somente a inclusão das query´s que antecedem um commit.
Procurei no fórum mas não achei nada que solucionasse meu problema. Se alguém puder ajudar, agraço...