Delphi - PROBLEMAS AL COPIAR DOS TABLAS

Hola a todos. mi problema es que cargo mediante un dbgrid una tabla, luego quiero copiar los datos de esa tabla a otra y lo unico que graba en la segunda tabla es el ultimo registro. cierro laaplicacion y vuelvo a presionar el boton y ahi si guarda todos los registros. desde ya agradesco a los que me puedan dar una mano.

tabla2.open;
tabla2.insert;
tabla1.first;

while not table1.eof do
begin
tabla2nombre.value := tabla1nombre.value;
tablad2apellid.value := tabla1apellido.value;
tabla2direccion.value := tabla1direccion.value
tabla2.post;
tabla1.next;
end;

lo que quieras hacer, ya se cerrar la tabla,etc.