1:
2:
3:
4:
5:

for i:=0 to hoch(Length(vorrat,laenge-1)) do begin
  for j:=1 to Length(vorrat) do begin
    strs.Items.Add(vorrat[j]);
  end;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function MaxKombinations(Len: integer; const Chars: string): Int64;
var
  Factor            : Int64;
begin
  Result := 0;
  Factor := 1;
  while Len > 0 do
  begin
    dec(Len);
    Result := Result + Factor;
    Factor := Factor * Length(Chars);
  end;
end;

function BruteForce(Nb: Int64; Chars: string): string;
begin
  Result := '';
  while Nb > Length(Chars) do
  begin
    dec(Nb);
    Result := Chars[Nb mod Length(Chars) + 1] + Result;
    Nb := Nb div Length(Chars);
  end;
  if Nb > 0 then
    Result := Chars[Nb] + Result;
end;

1:
2:
3:
4:

MaxChars := MaxKombinations(MinLen, Chars);
  while (length(s) <= Maxlen) and (not Terminate) do
  begin
    s := BruteForce(MaxChars, Chars);

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

for i:=1 to Length(vorrat) do begin
  for j:=1 to Length(vorrat) do begin
    for u:=1 to Length(vorrat) do begin
      for m:=1 to Length(vorrat) do begin
        erg:='';
        erg:=erg+vorrat[i];
        erg:=erg+vorrat[j];
        erg:=erg+vorrat[u];
        erg:=erg+vorrat[m];
        erg1.Add(erg);
      end;
    end;
  end;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Kombinationen(Vorrat: string; laenge: Integer; Zwischenspeicher: string; Liste: TStrings);
var i:integer;s:string;
begin
   dec(laenge);
   for i := 1 to length(vorrat) do
   begin
     s:=Zwischenspeicher + Vorrat[i];
     if laenge>0 then Kombinationen(vorrat,laenge, s, liste) else
     liste.Add(s);

   end;

end;

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Clear;
Kombinationen(edit1.Text,4,'',Memo1.Lines);
end;

1:

Kombinationen(Vorratsstring,Maximale_länge,'',Ziel_TStrings);