[shaman]

Всё таки у меня получилось решить твою задачу. Вот код:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  SBase, SDict: string; 

  procedure BruteForce(S: string; n: integer); 
  var
   i: integer;
  begin
   for i := 1 to Length(SDict) do
   begin
     s[n] := SDict[i];
     if n = 1 then
       Memo1.Lines.Add(s)
     else
       BruteForce(s, n - 1);
   end;
  end;

begin
  SBase := edit1.Text;    // длина генерируемых слов
  SDict := edit1.Text;  // символы из которых будем генерировать
  BruteForce(SBase, Length(SBase));
end;

end.

Admin: Информация по тегам тут. Настоятельно советую изучить, дабы не нарушать правила форума, которых следует придерживаться всем и каждому.

P.S. Админ, извини, у меня теги не получается вставить