Código Delphi [-] query1.SQL.add('INSERT into tabla SELECT * from otratabla where campo =arametro
query1.SQL.add('INSERT into tabla SELECT * from otratabla where campo =arametro