Delphi-Quellcode:
Procedure rek(iLoop: integer; sStr: String);
var
i: integer;
begin
for i := 65 to 90 do
begin
if (iLoop > 1) then rek(iLoop - 1, chr(i) + sStr);
lbText.Items.Add(chr(i) + sStr);
end;
end;
Und aufrufen tust du es mit:
rek(SpinEdit.Value, '');
Ich habe es jetzt nicht getestet, aber so, oder so ähnlich könnte es funktionieren.
PS: ich habe deine WHILE Schleife durch eine FOR Schleife ersetzt.