Array aus TComponents/TControl ?

[Kamephis]

1) wenn Du die Componenten eh in einen Array verwaltest würde ich die Zuweisung des Komponentennamens weglassen, ist nur fehleranfällig
2) das führt in etwa zu folgenden, ungetesteten Codeschnippsel:

Delphi-Quellcode:

    
arrCtrl: array[1..3] of TControl

procedure TForm1.CompCreate(CompClass: TControlClass; CompArray: array of TControl; settParent: TWinControl; settWidth: integer; settLeft: integer; settHeight: integer; settTop: integer; settText: string; i: integer);
begin
  CompArray[i] :=CompClass.Create(self);
  with CompArray[i] do
  begin
    Parent := settParent;
    Width := settWidth;
    Left := settLeft;
    Height := settHeight;
    Top := settTop;
    if CompClass.ClassNameIs('TEdit') Then TEdit(CompArray[i]).Text := settText;
    if CompClass.ClassNameIs('TLabel') Then TLabel(CompArray[i]).Caption := settText;
    ... [weitergehende Eigenschaften müssen entsprechend auf der gecasteten Komp. zugewíesen werden]
  end;
...

Aufruf sollte dann so gehen  
  CompCreate(TEdit, arrCtrl, Panel1,10,10,21,10,'Text',1);