Button zur Laufzeit erstellen

[Hansi]

Hallo,

Mit folgendem Code erstelle ich einen Button zur Laufzeit. Dies funktioniert auch.
So nun aber meine Frage: Wenn Ihr den Code in eine neue Anwendung kopiert werdet Ihr feststellen, dass kein Button auf dem Formular ist. Warum?? Die Lösung: Dies schafft Ihr nur wenn Ihr auf das leere Formular doppelklickt und dann in die Procedure TForm1.Formcreate kommt, die Ihr aber vorher schon erstellt habt(kopiert!). Wenn Ihr dann das Programm laufen lasst, erscheint der Button.

Warum?????

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)


  Procedure FormCreate(Sender:TObject);



  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Button1: TButton;
  end;

var
  Form1: TForm1;
  Button1:TButton;


implementation

{$R *.dfm}

Procedure TForm1.FormCreate(Sender:TObject);
begin
  Button1:=TButton.Create(self);
  Button1.Parent:=Form1;
  Button1.Top:=20;
  Button1.Left:=200;
  Button1.Show;
  Button1.Caption:='Beenden';

end;


end.