Button OnClick wird nicht ausgelöst..

[Angel4585]

Delphi-Quellcode:

var b : TObject;
...

procedure TForm1.Button1Click(Sender : TObject);
begin
b:=TButton.Create(Self);
with TButton(b) do
  begin
  Parent:=Self;
  Name:='Testb1';
  Top:=0;
  Left:=0;
  Width:=100;
  Height:=100;
  OnClick:=MyOnClick;
  end;
end;

hier funktioniert das OnClick. Also er springt bei nem Klick rein. Und jetzt?