solo guarda el ultimo registro en una tabla

[[maeyanes]]

No solo eso, te falta hacer el recorrido de la tabla, esto es, necesitas usar el método Next de la tabla fuente.

Código Delphi [-]
Table1.First;
while not Table1.Eof do
begin
  Table2.Append;
  Table2.FieldValues['art_y_esp'] := Table1.FieldValues['art_y_esp'];
  Table2.Post;
  Table1.Next // <---- Esto es lo que te falta....
end

Saludos....