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

Question

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

Answer 1

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;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

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

Answer 3

放在另一个对话框内就出了问题CreateSomeControls(5, TEdit, Self);
[Error] Unit2.pas(29): Incompatible types: 'TControlClass' and 'Class reference'
这是怎么呢?