Das mit dem Zerlegen ist nicht das Problem, das Problem ist, dass er es solange machen soll bis er eine Zahl mit 9 Schritten gefunden hat.
Diese Zahl scheint extrem groß zu sein. Mit den Delphi-Integertypen wird man vermutlich nicht erfolgreich sein. Es gibt "Bastellösungen" (nicht abwertend gemeint) für beliebig große Zahlen. Nur, um eine solche Zahl zu finden, wird wohl auch die Rechenzeit ins Astronomische wachsen. Mit Mathematik ist man wohl besser aufgehoben als mit dem sturen Probieren ("brute force").
Moderatoren und Administratoren, ich bewundere Eure Geduld....