Editfs zur Laufzeit auf Frame erstellen

[Samufi]

Hallo,
ich schreibe gerade an einem Programm, wo zur Laufzeit Editfelder erstellt werden sollen. Das aber nicht in der Hauptunit, sondern in einem Frame auf eben dieser. ich habe dazu folgenden Quelltext geschrieben:

Delphi-Quellcode:

unit Ausgabe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrame1 = class(TFrame)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var frame1:Tframe1;
implementation

{$R *.dfm}

procedure TFrame1.Button1Click(Sender: TObject);


VAR I:Integer; newEdit:TEdit;
BEGIN
I:=Strtoint(edit1.Text);
      newEdit := TEdit.Create(Frame1);
      newEdit.Name := 'eEingabe'+IntToStr(I);
      newEdit.Parent := Frame1;
      newEdit.Top := I * 30 + 8;
      newEdit.Left := 8;
      newEdit.Width := 100;
      newEdit.Show;
edit1.text:=inttostr(I+1);
end;

Leider passiert aber überhaupt nichts, wenn ich auf den Button klicke. Kann mir jemand sagen, wo der Fehler liegt?
Vielen Dank im Vorraus,
treuergebenst
Samufi