DBEdit1 Feld zur Laufzeit erzeugen

[Christian18]

und jetzt nocheinmal eine andere frage, das mit der for schleife funktioniert bei mir nicht, er macht immer nur einen button. das programm soll soviele machen wie in mein Edit1 Feld geschrieben steht. hatte auch schon begonnen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var test : TDBEdit;
      i, a    : Integer;
begin
  a:=0;
  for i:=1 to StrToInt(Edit1.Text) do
    begin
      test:=TDBEdit.Create(self);
      test.Top:=a+20;
      test.Parent:=Form1;
    end;
end;