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

for i = 1 to 4
     combobox(i).text="123"
next i
for i = 5 to 8 
     combobox(i).text="xyz"
next i					

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

var
  i: Integer;
begin
  for i := 1 to 99 do
  begin
    TCheckBox(FindComponent('CheckBox'+IntToStr(i))).Caption := 'Testnummer'+IntToStr(i);
  end;
end;					

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

var
  i: Integer;
  Compo : tComponent;
begin
  for i := 1 to 99 do begin
    Compo := FindComponent('CheckBox'+IntToStr(i));
    IF (Compo <> NIL) THEN // Komponente wurde gefungen
      IF (Compo IS tCheckBox) THEN // Wenn es sich um eine Checkbox handelt
        TCheckBox(Compo).Caption := 'Testnummer'+IntToStr(i)
      ELSE IF (Compo IS tEdit) THEN // Wenn es ein Edit ist
        TEdit(Compo).Text := 'Testnummer'+IntToStr(i);
  end;
end;					

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

var
  i: integer;
begin
  for i := 0 to (self.ComponentCount - 1) do begin
    if (self.Components[i] is TComboBox) then begin
      TComboBox(self.Components[i]).{hier können alle Eigenschaften der ComboBox angesprochen werden}
    end;
  end;
end;					

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

private
  fLabels : ARRAY[1..100] OF tLabel;
[...]

procedure MkLabels;
  VAR
     i : Byte;
begin
  FOR i := 1 TO 100 DO BEGIN
    fLabels[i] := tLabel.Create(MainForm);
    fLabels[i].Left := 25;
    fLabels[i].Top := i * 30;
  END;
end;

procedure SetText(lbl : Byte; TXT : STRING);
begin
  fLabels[lbl].Caption := TXT;
end;