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

procedure TForm1.Button1Click(Sender: TObject);
var
  aTmp : array[0..19] of string;
  i : integer;
begin
  for i := 0 to High(aTmp) do
  begin
    if (aTmp[i] <> '') then
      Caption := aTmp[i];
  end;
end;                    

1:

Caption := caption+aTmp[i];                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  aTmp : array[0..19] of string;
  i : integer;
begin
  // Nur als Beispiel, Code macht nicht wirklich Sinn
  for i := 0 to High(aTmp) do
  begin
    if (i = 1000) then
      Beep();
    if (aTmp[i] <> '') then
      Caption := aTmp[i];
  end;
end;                    

1:
2:
3:
4:

  for i := 0 to High(aTmp) do 
  begin 
    if (aTmp[i] <> '') then Caption := aTmp[i]; 
  end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  aTmp : Array[0..19] of String;
  i : Integer;
begin
  Label1.Caption := '';
  aTmp[2] := '2';
  aTmp[8] := '8';
  for i := 0 to High(aTmp) do begin
    if (aTmp[i] <> '') then Label1.Caption := aTmp[i];
  end;
end;                    

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

var
  MyArray: array[0..100] of Integer;
  Index: Integer;
begin
  for Index := 0 to 100 do
    MyArray[Index] := 10;
end;                    

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

var
  MyArray: array[0..100] of Integer;
  Counter: Integer;      // liegt auf der selben Speicheradresse wie "Index"
  HelperArray: PInteger; // ist in einem CPU Register ausgelagert
begin
  HelperArray := @MyArray[0];
  for Counter := 100 downto 0 do
  begin
    HelperArray^ := 10;
    Inc(HelperArray);    // Zeiger auf das nächste Array-Element
  end;
end;