Edit leert sich bei Enter

[Bummi]

Ich wollte nichts installieren und habe deshalb so getestet, aber keine Probleme feststellen können....

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
 i:Integer;
begin
  for I := 0 to 3 do

  with TAlignLabeledButtonEdit.Create(self) do
    begin
      Top := i*20;
      parent := self;
      OnButtonClick := Label1Click;
    end;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  Showmessage(TAlignLabeledButtonEdit(Sender).Text)
end;