Envía el código (o parte de el) en donde insertas los datos.
de todos modos, creo que falta el post. (y el EOF)
Código Delphi
[-]
while not adodataset1.EOF false then
begin
table1.append;
table1.fieldbyname('campo1').value:=adodataset1.fields[0].value;
table1.fieldbyname('campo2').value:=adodataset1.fields[1].value;
table1.fieldbyname('campo3').value:=adodataset1.fields[2].value;
...
table1.Post;
end