with query1 do
begin
close;
sql.clear;
sql.add('select * from tablename where 你的条件');
parameters.ParamByName('你定义的参数').value := 你给得值;
………………
open;
frist;
with query2 do
begin
close;
sql.clear;
sql.add('select * from tablename<-你要插入的表');
open;
end;
while not eof do
begin
query2.insert;
query2.fieldbyname('你要插入的列').value := fieldbyname('从Query1中得到数据的列').value;
………………
query2.post;
next;
end;
end;