[[Lepe]]

¿te permite usar adotable1.FieldByName('numtra').AsXXX?
Yo siempre en el foro he visto utilizar .Value

Código Delphi [-]
dbgrid1.datasource.dataset.First;

while not dbgrid1.datasource.dataset.eof do
begin
  adotable1.Append;
  adotable1.FieldByName('numtra').Value := dbgrid1.Columns[2].Field.Value;
  adotable1.Post;
dbgrid1.datasource.dataset.Next; // avanzamos en el grid !!
end;

Saludos