coopiar\Atualizar dados em tabelas iguais

[rebotea]

Olá amigos

Como poderei atualizar duas tabelas iguais rapidamente! O codigo abaixo esta muito lento tem mais ou menos 3000 registos agora.

Obrigado

while not frmDados.Planeamento_remot.Eof do begin
begin

frmDados.Planeamento_Local.Edit;
frmDados.Planeamento_Local.FieldByName('Duração').text := frmDados.Planeamento_remot.FieldByName('Duração').text;
frmDados.Planeamento_Local.FieldByName('Afazeres1').text := frmDados.Planeamento_remot.FieldByName('Afazeres1').text;
frmDados.Planeamento_Local.FieldByName('Afazeres2').text := frmDados.Planeamento_remot.FieldByName('Afazeres2').text;
frmDados.Planeamento_Local.FieldByName('obs').text := frmDados.Planeamento_remot.FieldByName('obs').text;
frmDados.Planeamento_Local.FieldByName('Entrega Relatorio').text := frmDados.Planeamento_remot.FieldByName('Entrega Relatorio').text;
frmDados.Planeamento_Local.FieldByName('Entrega Relatorio1').text := frmDados.Planeamento_remot.FieldByName('Entrega Relatorio1').text;
frmDados.Planeamento_Local.FieldByName('entregue a:').text := frmDados.Planeamento_remot.FieldByName('entregue a:').text;
 frmDados.Planeamento_Local.FieldByName('Entrega Relatorio').text := frmDados.Planeamento_remot.FieldByName('Entrega Relatorio').text;

   frmDados.Planeamento_Local.Post;
End;

Editado Junho 4, 2010 por quintelab
Adicionado BBCode Code

[Daniel Sanches]

se for pra copiar tudo de uma tabela para outra idêntica, você pode tentar com SQL:

insert into TABELA1 (select * from TABELA2)

já não sei se a velocidade será melhor ...