DBEdit1 Feld zur Laufzeit erzeugen

[Christian18]

nein ist es auch nicht, aber bei mir funktionier es leider nicht. hier nochmal mein code:

Delphi-Quellcode:

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

es wird bei mir nur ein edit feld angezeigt. egal wieviel ich in mein edit1 feld rein schreibe