Objekte während der Programmlaufzeit erzeugen?

[cetinbiryoldayim]

Guten Abend meine Herren/Damen

Ich hätte heute wieder einmal eine Frage an euch wenns recht ist.
Undzwar möchte ich Objekte von festgelegten Klassen (wie z.B. TButton, TImage, usw.) während der Laufzeit erzeugen und diesen bei der Erzeugung mit durch die Übergabe Parametern Eigenschaften zuteielen.

Ich habe schonmal bisschen probiert, doch lieg ich da glaube ich etwas falsch, denn es passiert nichts wenn ich auf Button1 klicke.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2 := TButton.Create(Form1);
  Button2.Name := 'Button2';
  Button2.Enabled := true;
  Button2.Top := 50;
  Button2.Left  :=  50;
  Button2.Caption := 'Button2';
end;

end.

grüßchen