Error transfiriendo de Excel(ADO) a Paradox

[Walterdf]

Buenas
Hice una aplicación que me transfiere los datos de determinada planilla de Excel a una tabla Paradox.
Tengo un componente AdoConnection1, AdoDataSet1 y una TTable1 (paradox).
La conexión ADO hacia Excel funciona perfecto y además la muestra en un dbgrid.
El problema viene cuando intento pasar los datos a la TTable1, lo hago de la siguiente manera:

procedure TForm1.BitBtn3Click(Sender: TObject);

var
contador: integer;

begin
contador:=0;
Table1.Active:=true;

while not AdoDataSet1.EoF do
begin
contador:=contador+1;
Table1.append;
Table1.Fields[contador].Value := AdoDataSet1.Fields[contador].Value;
AdoDataSet1.Next;
end;

end;

Me tira el error: "List Index out of bounds (21)" mientras que 21 es la cantidad de campos que tengo tanto en el Excel como en la TTable1.
¿En qué estoy metiendo la pata?
Muchas gracias.
Walter