Spätestens bei diesen Größenordungen ist angebracht, zu der einer allgemein-gültigen Lösung mit einer Schleife zu wechseln:
Delphi-Quellcode:
for i:=n downto 1 do begin
result[i] := wert mod 10;
wert := wert div 10;
end;
Ist auch übersichtlicher und verständlicher.
PS:
div und
power passen doch wohl nicht ganz zusammen.