Falls es sich bei dem gezeigten erwünschten Ergebnis nicht nur um ein dahergeholtes Beispiel handelt, geht das ganze auch (ganz unrekursiv)
damit 
.
Delphi-Quellcode:
var
BruteForce: TBruteForce;
begin
BruteForce := TBruteForce.Create;
BruteForce.NodeCount := 5; // oder 6 oder 7 oder was auch immer...
BruteForce.ElementList := BFConstToDynArray(Numeric);
// über "Ergebnisse" iterieren
Memo1.Lines.Add(BruteForce.Value);
while not BruteForce.Finished do begin
Memo1.Lines.Add(BruteForce.NextValue);
end;
end;