Problema con Insert dentro de Evento BeforePost

[Jvilomar]

Saludos mis queridos amigos...

Me gustari saber si pueden alludarme a solucionar una duda...

Utilizo Delphi 7, Con TADOQuery y me conecto a una Base de Datos SQL SErver 2000.

Tengo dos tablas T1 y T2 lo que deseo es que en el evento BeforePost de la Tabla 1 me haga una insercion de ciertos datos en la T2. Pero no puedo conseguir que ejecute la insercion en la t2.

Código Delphi [-]
procedure DataModulo.aoqryAnularBeforePost(DataSet : TDataSet);
Begin
     with qryConsulta do
         begin
            Connection := SGGC;
            Close;
            SQL.Clear; 
            SQL.Add('Select * from tClientesApartamentos where idCuenta =:idCliente');
            Parameters[0].Value := DataSet['idCliente'];       
            Open;
            if IsEmpty then
               begin
                  with qryActualizar do
                     begin
                       Connection := SGGC;
                       Close;
                       SQL.Clear; 
                       SQL.Add('Insert into tClientesApartamentosTrans ');
                       SQL.Add('Select * from tClientesApartamentos where idCuenta =:idCliente');
                       ExecSQL;
                  End;
            End;
       End;
End;

el asunto es que cuando ejecuto el query que hace la insercion me parece que pierdo el estado del primer query.. podria alguien confirmarme que sucede o a lo mejor darme una idea de hacer esto mismo de una forma menos chapusera...

Gracias de AnteMano