Un detalle

[pmtzg]

hola amigos
estoy pasando informacion de una tabla a otra
pero se me qued en un 3%
la verdad no le encuentro no avanza y solo me copia 1 registro
este es el codigo :

Código Delphi [-]
 
 
for i := 0 to table1.Fields.Count -1 do
    zt2.Fields[i].Value:=table1.Fields[i].Value;
    zt2.Post;
    i:=table1.Fields.Count+1;
    gauge2.Progress:=i;

me pueden hechar una mano!!!! gracias