table update fom table B to A

Question

Is there a fast way to update my ttable´s i have like 3000 record´s and it upddate slowlly. thank´s

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;