string inkrementieren

[Cogito]

Hallo zusammen,

wahrscheinlich ist es nur eine Bagatelle aber ich suche nach einer Möglichkeit, eine Zahl, die in einem string gespeichert ist, zu inkrementieren.
Beispiel:

ZahlAlsString := '0470726';

die nächste Zahl sollte dann '0470727' sein. Das Problem hierbei für mich ist, wenn ich die Zahl als Integer umwandle verliere ich die führende Null. Da diese Zahl Bestandteil eines Barcodes sein soll muss die führende Null bleiben.
Wie mache ich sowas, gibt's eine fertige Funktion oder hat jemand eine selbst geschriebene für mich?