for i:= 1 to adotable.recordcount do
begin
 //将源表中的数据遍历,
 //读取一条,写入到目的数据表一条.
 每个字段对应好.
end;