将query的结果输出到新表

例: query1里有lookup和计算字段. 另起一个query2.
query2的sql为: insert into table valuesa1, :a2, ...:aN)
程序中: Query2.ParamByName('a1').AsString := Query1.FieldByName('a1').AsString;
Query2.ParamByName('a2').AsString := Query1.FieldByName('a2').AsString;
......
Query2.ParamByName('aN').AsString := Query1.FieldByName('aN').AsString;
Query2.ExecSQL;