Prueba así:
Código Delphi
[-]
AdoDataSet1.Active :=True;
Table_Importado.Active := True;
while not AdoDataSet1.Eof do
begin
Table_Importado.Append;
Table_Importado.Fields[0].Value := AdoDataSet1.Fields[0].Value;
Table_Importado.Fields[1].Value := AdoDataSet1.Fields[1].Value;
Table_Importado.Fields[2].Value := AdoDataSet1.Fields[2].Value;
AdoDataSet1.Next;
end;
Table_Importado.Active := False;
No es necesario activar el AdoDataset en cada vuelta. Y al desactivarlo, no le das tiempo a que se guarden los datos.
Bye