Vielleicht was in der Art:
Delphi-Quellcode:
i ist grad 51232 oder sowas...
j:= length(inttostr(10000000000000));
k:= length(inttostr(i));
str:='';
for m:=0 to j-k do
str:=str+'0';
str:=str+i;
Also von der Idee her schauen, wie lange die aktuelle Zahl ist, dann ausrechnen, wie viele Nullen noch ergänzt werden müssen, dass dann tun und die Zahl selbst anhängen.
Edit: Du solltest i vor der Schleife noch auf 0 setzen.