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

function BruteForce(s: String; l: Integer): String;
var
  i: Integer;
  t: String;
begin
  for i := 97 to 122 do
  begin
    t := S + Chr(i);
    if Length(S) < l then
      t := BruteForce(t, l);
    ShowMessage(t);
  end;
end;					

1:
2:
3:
4:
5:
6:

var
  s: String;
begin
  s := '';
  BruteForce(s, 3); 
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:

type
  TWorkProc = procedure(s: String);

implementation

procedure BruteForce(charset: array of Char; l: Integer; p: TWorkProc);
  procedure BruteForceRecursive(s: String);
  var
    i: Integer;
    t: String;
  begin
    for i := 0 to High(charset) do
    begin
      t := S + charset[i];
      if Length(S) < l - 1 then
        BruteForceRecursive(t)
      else
        p(t);
    end;
  end;
var
  s: String;
begin
  s := '';
  BruteForceRecursive(s);
end;					

1:
2:
3:

const CharsetData : array[97..122] of char = 'abcdefghijklmnopqrstuvwxyz';

BruteForce(CharsetData, 3, @p);