Schleifen-Verschachtelungs-Problem

[TheGame1492]

Ich möchte eine verschachtelte Schleife schreiben, wo die Tiefe der Schleife dynamisch sein soll, also als Beispiel

Delphi-Quellcode:

_begin:=1;
_end:=3;

list := TStringList.Create;

for i := _begin to _end do
  for j := _begin to _end do
    for k := _begin to _end do
      for l := _begin to _end do
        begin
          list.Add(IntToStr(i)+'|'+IntToStr(j)+'|'+IntToStr(k)+'|'+IntToStr(l));
        end;

Ergebnis:
---------

1|1|1|1
1|1|1|2
1|1|1|3
1|1|2|1
1|1|2|2
1|1|2|3
.
.
.

bis

.
.
.
3|3|2|3
3|3|3|1
3|3|3|2
3|3|3|3


Dies wäre eine Tiefe von 4. Dazu benötigt werden 4 For-Schleifen, wie kann ich das jetzt aber machen, wenn ich zB eine Tiefe von 10 haben möchte,


beispiel:
1|1|1|1|1|1|1|1|1|1
1|1|1|1|1|1|1|1|1|2
1|1|1|1|1|1|1|1|1|3
1|1|1|1|1|1|1|1|2|1
1|1|1|1|1|1|1|1|2|2
1|1|1|1|1|1|1|1|2|3
.
.
.


ohne jetz 10 For-Schleifen zu benutzen, irgendwie steh ich da auf dem Schlauch