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:

procedure PermutePartial(ADest: TStrings; const AChars: string; const AFixedChar, ALength: Integer);

  procedure DoPermutePartial(ADest: TStrings; const AChars, AValue: string; const ALength: Integer;
    ALastChar: Char);
  var
    i: Integer;
  begin
    if Length(AValue) = ALength then
      ADest.Add(AValue + ALastChar)
    else
      for i := 1 to Length(AChars) do
        DoPermutePartial(ADest, Copy(AChars, 1, i - 1) + Copy(AChars, i + 1, MaxInt), AValue + AChars[i],
          ALength, ALastChar);
  end;

begin
  if (AFixedChar < Length(AChars)) and (Length(AChars) > 0) then
    DoPermutePartial(ADest, Copy(AChars, 1, AFixedChar - 1) + Copy(AChars, AFixedChar + 1, MaxInt),
      '', ALength - 1, AChars[AFixedChar]);
end;


// Beispielaufrufe:
PermutePartial(MyListBox.Items, 'ABCDEF', 2, 2);
PermutePartial(MyListBox.Items, 'ABCDEF', 2, 3);