Hola.
Código:
while not Transacciones.Eof do begin
Transaccion.Insert;
Transaccion.FieldValues['Nombre'] := Transacciones.FieldValues['Nombre'];
Transaccion.FieldValues['Apellidos'] := Transacciones.FieldValues['Apellidos'];
...
Transaccion.Post;
Transacciones.Next;
end;
Si quieres una forma mejor, dinos que Base de Datos utilizas y con que componentes de acceso te conectas, y quizá haya una específica.
Saludos.