Código Delphi [-]BD1.open while not BD1.eof insert into BD2 values (BD1.campo1, BD1.campo2, ...) BD1.next end
BD1.open while not BD1.eof insert into BD2 values (BD1.campo1, BD1.campo2, ...) BD1.next end