Как делается автоматический перебор ?(Delphi)

Всем привет подскажите пожалуйста как делать автоматический перебор символов чтобы они переходили после переборки всех значений в два в три байта и тд немогу сообразить как это делается
имеется:

PHP:

var 
Brute:array[0..0]of string=('a');

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval:=strtoint(Edit2.Text);
Timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
Brute[0][1] := Succ(Brute[0][1]); // Перебор символов
For i:=cardinal(Succ(Brute[0][1])) to cardinal(High(Succ(Brute[0][1]))) do
Brute[0]:=Brute[0]+'a';// когда символ будет иметь максимальное значение прибавляем байт ВОТ ЭТО И НЕВЕРНО НЕЗНАЮ КАК ПРАВИЛЬНО НАПИСАТЬ



 

1. Читаешь http://www.insidepro.com/doc/003r.shtml
2. Пишешь то, что тебе требуется

 

Спасибо но жалко что пример на VB
я так не особо пойму

 

там VB рядом не пахнет!

 

Ну есть запашок такой небольшой

 

Там вполне нормально описан алгоритм и дан пример на с++ с ассемблером.
Если ты не в состоянии по внятно сформулированной последовательности действий сделать её реализацию, то тебе стоит обратиться в раздел О работе видимо.

 

Вот для чего всё усложнять когда всё почти готово ?

PHP:

if (Length(Brute[0])=1) and (Brute[0][1]='')then
Brute[0]:=Brute[0]+'a';
if (Length(Brute[0])=2) and (Brute[0][1]='')then
Brute[0][2]:=Succ(Brute[0][2]);
if Brute[0]=''then Brute[0]:=Brute[0]+'a';
end;


Осталось просто придумать как можно не писать условия для каждого нового байта