动态出现对话框并且出现动态控件

[yangw79]

我想动态出现，并且控件的个数是临时出现的（比如可能是5个TEDIT，或者是6个）
请为代码怎么写啊？？（一小段就可以了）

[lxpbuaa]

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateSomeControls(5, TEdit, Self);
end;

procedure TForm1.CreateSomeControls(Count: Integer; AClass: TControlClass; AOwner: TComponent);
var
I,L: Integer;
begin
L := 10;
for I := 1 to Count do
with AClass.Create(AOwner) do
begin
Parent := Form1;
Visible := True;
Left := L;
Top := 10;
Width := 100;
Height := 20;
Inc(L, Width+10);
end;
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[yangw79]

我的意思是动态的对话框,比如Button1Click后出现对话框,而对话框中出现几个控件

[lxpbuaa]

就是在对话框中创建这些控件，然后显示

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[yangw79]

放在另一个对话框内就出了问题

CreateSomeControls(5, TEdit, Self);
[Error] Unit2.pas(29): Incompatible types: 'TControlClass' and 'Class reference'


这是怎么呢?