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

procedure ErmittleAnordnungsListe(Liste: TStringList; Ausgabe, Eingabe: String);
var i : Integer;
    KopieAusgabe, KopieEingabe : String;
begin
  for i:=1 to Length(Eingabe) do
    begin
      KopieAusgabe:=Ausgabe;
      KopieEingabe:=Eingabe;
      KopieAusgabe:=Ausgabe+Eingabe[i];
      Delete(KopieEingabe,i,1);
      if KopieEingabe=''
        then Liste.Add(KopieAusgabe)
        else ErmittleAnordnungsListe(Liste, KopieAusgabe, KopieEingabe);
    end;
end;					

1:

ErmittleAnordnungsListe(Liste, '', 'ABCD');					

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

// Target: Die Stringliste, in die die Liste mit Wörtern rein soll.
// Source: Der String, aus dem die Wörter zusammengesetzt sein sollen, z.B. "ABCDEFG"
// IndexS: Der aktuelle Index in Source, über den iteriert werden soll
// lMax: die Länge der gesuchten Wörter, z.B. 3
// currentEntry: Das bisher im aktuellen Ast der Rekursion aufgebaute Wort, initial Leerstring
procedure GenerateList(Target: TStrings; Source: String; IndexS: Integer; lMax: Integer; currentEntry: String);
var i: Integer;
    newEntry: String;
begin
    for i := IndexS to (Length(Source) - (lMax - Length(currentEntry)) + 1 ) do
    begin
        // Zeichen anhängen
        newEntry := currentEntry + Source[i];
        // wenn die gewünschte Länge erreicht ist: Ausgabe
        if Length(newEntry) = lMax then
            Target.Add(newEntry)
        // sonst: rekursiv an der nächsten Stelle weitermachen
        else
            GenerateList(Target, Source, i + 1, lMax, newEntry);
    end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
    sl: TStringList;
begin
    Memo1.Lines.Clear;
    s := '';
    sl := TStringList.Create;
    try
        GenerateList(sl, Edit1.Text, 1, Spinedit1.Value, s);
        Memo1.Lines.Assign(sl);
    finally
        sl.Free;
    end;
end;