[roman]

Ahí nada más estás recorriendo los campos del registro activo pero nunca avanzas de registro. Tendría que ser algo como

Código Delphi [-]
Table1.First;

while not Table1.Eof do
begin
  // Agregas registro en blanco
  zt2.Append;

  // Copias valores de los campos
  for i := 0 to Table1.Fields.Count -1 do
    zt2.Fields[i].Value := Table1.Fields[i].Value;

  // Guardas el nuevo registro
  zt2.Post;

  // Avanzas al siguinete registro de la tabla origen
  Table1.Next;
end;

// Saludos