Ler Dados e gravar em 2 tabelas

[tarcianosales]

Pessoal Bom dia, 

Estou com um problema numa rotina que não consegui finalizar. 
No tedit estou fazendo um select no evento on enter consultando um codigo em uma tabela X, O resultado deste codigo preciso gravar na tabela Y e Z e mostrar na grid. 
O banco é Oracle, veja o select: 

select a.codigo_rolo, a.panoacab_grupo, a.panoacab_subgrupo, a.panoacab_item, a.lote_acomp, a.codigo_deposito, a.qtde_quilos_acab, '+ 'a.rolo_estoque, a.nota_fiscal, a.unidade_medida from pcpt_020_025 a '+ 'where a.codigo_rolo = '''+edrolo.text+''' 

Como gravo este resultado na tabela Y e Z?

[shipool]

Não entendi direito a sua duvida, voce quer gravar tudo que a query traz nas duas tabelas? tudo igual? voce estra com duvida na hora de usar o codigo para gravar os dados na tabela? ou nac forma que deve ser gravado?