[Страдалецъ]

А вот так вас устроит?

Код:

Const
  Symbol = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

procedure TForm33.FindCombination(S: String; Level: Integer);
Var
  i: Integer;
begin
 for i := 1 to Length(Symbol)
 do begin
    Label1.Caption :=  S + Symbol[i];
    Application.ProcessMessages;
    if Level < Length(Symbol)
    then FindCombination(S + Symbol[i],Level+1);
    end;
end;

procedure TForm33.Button1Click(Sender: TObject);
begin
 FindCombination('',0);
end;