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

 for k := 0 to ComponentCount-1 do
     begin
      Komp := components[k];
      if (Komp is TSecDev) then
        Temp[i] := Komp;
      end;					

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

var
  i: Integer;
  Comp: TComponent;
begin
  for i :=  0 to ComponentCount - 1 do begin
    Comp := Components[I];
    if (Comp is TEdit) then (Comp as TEdit).ReadOnly := not Enabled;
    if (Comp is TMemo) then (Comp as TMemo).ReadOnly := not Enabled;
  end;					

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

for i := 0 to ComponentCount-1 do Temp[i] := TComponent.Create(Self);
try
  ... hier dein Code
finally
  for i := 0 to ComponentCount-1 do Temp[i].Free;
end;					

1:

Edit1					

1:
2:
3:
4:

var
  TempEdit: array[0..3] of TEdit;
begin
  TempEdit[0] := Edit1;					

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

procedure TForm1.Button1Click(Sender: TObject);
VAR my_edit : TEdit;
begin
  my_edit:=edit1;
  ShowMessage(my_edit.Text);
  my_edit.Text:='geklickt';
end;					

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

for k := 0 to ComponentCount-1 do 
  begin 
    Komp := components[k]; 
    if Komp is TSecDev then 
      begin
        Temp [i] := Komp; 
        Inc (i);
      end;
  end;					

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

 for i := 0 to 8 do
  begin
     str(DaempfungSD[i].Daempf,DaemSD);
     DaempfS := DaempfS + DaemSD;
     AusgabeForm.AusgabeMem.Lines.Add(DaempfS);
     Zeich := TZeichnen.Create(nil);
      for k := 0 to HausPlanBox.ComponentCount-1 do
        begin
          Komp := HausPlanBox.components[k];
           if  (Komp is TSecDev) then
              Temp[i] := Komp;
         end;
   end;