Problema al grabar con UNION 2 TABLAS

[pmtzg]

hola amigos
deseo consultar con ustedes el siguiente problema que tengo

estoy uniendo 2 bases de datos por medio de un query y union
creo mis tablas y creo los index y clave primaria
para pasarlo a una tabla de Firebird 2.1

si lo hago asi como les cuento en la parte del IBtable1.post
me marca un error por que se llegan a duplicar el registro
pero le meti 2 TRY este es el codigo:

Código Delphi [-]
nr:=nr+1    // para que no se duplique el campo: num_reg
while not Query1.Eof do
begin

  st3.Caption :='registro no.: '+inttostr(Query1.RecNo)+' -'+inttostr(Query1.RecordCount)+ modul;
   IBTable1.Append;
   for I := 0 to query1.Fields.Count - 1 do
        begin
             IBTable1.FieldByName('NUM_REG').AsInteger := nr;
             IBTable1.Fields[i].Value := query1.Fields[i].Value;
          
              try              {x si hay un error de reg.duplicado }
                IBTable1.Post;
              except                     
              end; 
            try
              Query1.Next;
              Gg1.Progress:= Query1.RecNo;
              nr := nr+1;
            finally
            end; 

end; {  while}

pero aun así me marca errores de duplicidad como PRIMARY KEY
etc

si al crear mis tablas no creo index y key primary no tengo obiamente
problemas de grabar al transferir los registros

alguien me podria orientar como poder manejar este error y que siga
grabando mis demas registros
gracias por su apoyo