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

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
begin
  for i := 0 to 9 do
    for j := 0 to 9 do
      Memo1.lines.Add(IntToStr(i) + IntToStr(j));
end;                    

1:
2:
3:

type RAlphabet = record
      Buchstabe: Char;
end;                    

1:

myAlpha: array of RAlphabet; //dyn. Array (dyn. gleich beliebige Länge)                    

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

 setlength(myAlpha, 26); //Warum 26? Wie viele Buchstaben hat das Alphabet? Richtig..26
 
 {
  Das Array hat nun also Platz für unsere Buchstaben von A bis Z.
  Und weil es dafür Platz hat, füllen wir jede Position von 1 bis 26 (Array geht bei 0 los!! Position 0-25) mit unseren 
  Buchstaben in alphabetischer Reihenfolge.
 }                    

1:
2:
3:
4:
5:
6:
7:
8:

var counter: integer;
begin;
counter:= 97;
for i:= low(myAlpha) to high(myAlpha) do
 begin
  //Wenn du nach ASCII-Tabelle googelst, wirst du verstehen, was hier passiert...
  myAlpha[i].Buchstabe:= chr(counter+i);
 end;                    

1:
2:
3:
4:
5:

myAlpha[0]:= 'a';
myAlpha[1]:= 'b';
myAlpha[2]:= 'c';
...
myAlpha[25]:= 'z';                    

1:

var i, i2, i3: Integer                    

1:
2:
3:
4:

for i:= low(myAlpha) to high(myAlpha) do
 for i2:= low(myAlpha) to high(myAlpha) do
  for i3:= low(myAlpha) to high(myAlpha) do
   memo1.lines.add(myAlpha[i].Buchstabe + myAlpha[i2].Buchstabe + myAlpha[i3].Buchstabe);                    

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

aaa
aab
aac
aad
aae
...
zzz                    

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

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
begin
  for i := 0 to 9 do
    for j := 0 to 9 do
      Memo1.lines.Add(IntToStr(i) + IntToStr(j));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

00
01
02
03
04
05
06
07
08
09
10
..
90
91
92
93
94
95
96
97
98
99