Pues sólo se me ocurre haciéndolo "a mano".
Puedes acceder por índice a los campos de una tabla, algo así como:
Código Delphi
[-]
Table.Fields[0].AsString....
Así que se puede solucionar con un for que haga un recorrido para todos los campos menos el último y que asigne el del índice [i] al [i+1].
Espero haberme explicado mínimamente...
