Botão no Delphi 7

procedure TForm1.FormCreate(Sender: TObject);
var
 meubutton : Tbutton;
begin
  meubutton := Tbutton.create(form1);
   with meubutton do
   begin
      Parent := form1;
      Left := 100;
      Top  := 100;
      Height := 25;
      Width  := 100;
      Caption := 'Meu Botão';
      OnClick := testarbutton;
   end;
end;

procedure TForm1.testarbutton(Sender: TObject);
begin
 ShowMessage('meubutton está funcionando');
end;