Podes hacerlo con un ciclo como el siguiente para ambas tablas.
Código Delphi
[-]
TablaOrigen.Open;
TablaDestino.Open;
While not TablaOrigen.Eof do
Begin
TablaDestino.Insert;
TablaDestinoCampo1.Value := TablaOrigenCampo1.Value;
TablaDestinoCampo2.Value := TablaOrigenCampo2.Value;
TablaDestino.Post;
TablaOrigen.next;
end;
Otra opción es utilizar BatchMove.
Hasta luego.