Array aus TComponents/TControl ?

[zack0r]

Hallo ich habe folgendes Problem:
ich wollte ne procedure schreiben, mit der ich verschiedene Komponenten zur Laufzeit (quasi dynamisch) erstelle. Die Komponenten, die ich erstellen will liegen in mehreren Arrays, der form
EditsLK: array[1..3] of TEdit; vor.

Meine Procedure sieht folgendermaßen aus:

Delphi-Quellcode:

procedure TForm1.CompCreate(Comp: string; settParent: TWinControl; settWidth: integer; settLeft: integer; settHeight: integer; settName: string; settText: string; settTop: integer; i: integer);
begin
  if Comp = 'EditsLK' then
  begin
    EditsLK[i] := TEdit.Create(self);
    with EditsLK[i] do
    begin
      Parent := settParent;
      Width := settWidth;
      Left := settLeft;
      Height := settHeight;
      Name := settName;
      Text := settText;
      Top := settTop;
    end;
  end;
{....usw.}

Mein Problem ist jetz, dass ich nicht weiss, wie ich die Variablen setzten soll. Weil so muss ich für jedes Komponentenarray, die ich eigentlich bequem per Procedure erstellen wollte, den selben Ablauf wie oben nochmal schreiben. Ich hab ein wenig rumprobiert und versucht ein array aus TControlClass zu machen:

Delphi-Quellcode:

procedure TForm1.CompCreate(Comp: TControl; CompArray: array of TControlClass; settParent: TWinControl; settWidth: integer; settLeft: integer; settHeight: integer; settName: string; settText: string; settTop: integer; i: integer);
begin
  CompArray[i] := Comp.Create(self);
  with CompArray[i] do
  begin
    Parent := settParent;
    Width := settWidth;
    Left := settLeft;
    Height := settHeight;
    Name := settName;
    Caption := settText;
    Top := settTop;
  end;
end;

Leider gibt der Compiler jetzt nur "Inkompatible Typen" aus...
Hat vielleicht jemand ne Idee? Bin ich komplett aufm "Holzweg"? Kann mir jemand helfen?

Danke im Vorraus