Copiar Tablas

[Mystery]

Hola ha todos bueno yo estaba tratando de copiar unas tablas de una bd en access a otra SQL Server pero como son mas de 1000 000 de registros.
he tratado de hacer lo siguiente pero me da error... si alguien me pudiese decir lo que ocurre estaria agradecido...

Código Delphi [-]
arr:=VarArrayCreate([0, TbOrigen.FieldCount-1], varVariant);
while not TbOrigen.Eof do begin
    for i:=0 to TbOrigen.FieldCount-1 do
      arr[i]:=TbOrigen.Fields[i].VALUE;
    Tb_Destino.AppendRecord(arr);
    TbOrigen.Next;
  end;

sin mas

Mystery