关于怎样插入记录的问题？

Question

var
 adoq:tadoquery;
begin
    adoq:=tadoquery.Create(self);
    adoq.ConnectionString:=adoquery1.ConnectionString;
    //insert;
    adoq.Free;
end;

Answer 1

query1.first;
while not query1.eof do
  begin
    query2.insert;
    query2.fieldbyname('XX') := query1.fieldbyname('XX');
    ...........
    query2.post;
    query1.next;
  end;

Answer 2

insert table2 (select * from table1 where a1=2);

Answer 3

insert table2 (select * from table1 where a1=2);

Answer 4

table2.insert;
    table2.fieldbyname('XX') := table1.fieldbyname('XX');
    table2.post;
    end;