Insert em duas tabelas

Procedure TForm1.Button1Click(Sender: TObject);
begin
Try
With Query1 do
Begin
Close;
Sql.Clear;
Sql.Add('Insert Into tb_pai
(Cod_Orcamento,Cod_Aba,Cod_Atividades,Descricao_Atividades,Cod_Mais)Select
Cod_Orcamento,Cod_Aba,Cod_Atividades,Descricao_Atividades,Cod_Mais>From tb_orcamentos');
Sql.Add('Where cod_orcamento = 6');
ExecSql;
table2.refresh;
End
Except
Showmessage('Favor Selecionar novamente');
End
end;