MEMBUAT KOMPONEN EDIT SECARA OTOMATIS KETIKA RUNTIME

pernahkah anda berfikir bagaimana cara membuat beberapa buah kompoenen edit ketika aplikasi ijalan kan ?

berikut source codenya

var
Form1: TForm1;
MyEdit: array of TEdit;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i,nJumlah: Integer;
begin
nJumlah:=5; // berapa jumlah yang dibikin
SetLength(MyEdit,nJumlah);
for i:=0 to nJumlah-1 do
begin
MyEdit[i]:=TEdit.Create(Self);
MyEdit[i].Parent:=Self;
MyEdit[i].SetBounds(8,8+(i*25),121,21);
end;
end;