Insert de datos faltantes con sql

[StartKill]

Hola,

Trabajo con delphi 7.0, componentes IBX, Interbase 7.0,

Tengo dos tablas de la siguiente forma:

tabla01
y mi clave primaria es CODIGO-01
CODIGO-01     DETALLE-01
--------------------------
001           AAAAAAA
002           BBBBBBBB
003           CCCCCCC
004           DDDDDDD
005           FFFFFFFF
006           EEEEEEEE

tabla02
y mi clave primaria es CODIGO-01, CODIGO-02
CODIGO-01     DETALLE-01     CODIGO-02
----------------------------------------
001           AAAAAAA           XXX1
002           BBBBBBBB           XXX1
003           CCCCCCC           XXX1
004           DDDDDDD           XXX1
005           FFFFFFFF           XXX1
006           EEEEEEEE           XXX1
001           AAAAAAA           AAA3
003           CCCCCCC           AAA3
004           DDDDDDD           AAA3
006           FFFFFFFF           AAA3

y una relacion foranea desde la tabla-02 a la tabla-01
por medio del campo CODIGO-01

Si se observa la tabla-02 hay un conjunto de seis (6) registros para codigo-02 (XX1) que estan en la tabla-01

Como haria para llenar los registros faltantes de la tabla-01 en la tabla-02 para el codigo AAA3??, para que quede de la siguiente forma

tabla02
CODIGO-01     DETALLE-01     CODIGO-02
----------------------------------------
001           AAAAAAA           XXX1
002           BBBBBBBB           XXX1
003           CCCCCCC           XXX1
004           DDDDDDD           XXX1
005           FFFFFFFF           XXX1
006           EEEEEEEE           XXX1
001           AAAAAAA           AAA3
002           BBBBBBBB           AAA3
003           CCCCCCC           AAA3
004           DDDDDDD           AAA3
005           FFFFFFFF           AAA3
006           EEEEEEEE           AAA3

Lo he hecho con codigo en Delphi, pero me gustaria hacerlo con una sentencia SQL o Procedure.

A la espera de sus respuestas, regalos y otros.

Your friend,

StartKill
Lima-Perú