خطا در ساختن کامپوننت

[The.Ghost]

با سلام.
لطفا میشه بگید چرا برنامه زیر خطا میدهد؟؟

کد:

program Project1;

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.StdCtrls;

{$R *.res}

procedure OnButton1Click(Sender: TObject);
begin
  ShowMessage('Hi');
end;


var
  Form1: TForm;
  Button1: TButton;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  Form1 := TForm.Create(nil);
  Try
    Form1.BorderStyle := bsDialog;
    Form1.Caption := 'My Project1';
    Form1.Position := poScreenCenter;
    Form1.ClientWidth := 400;
    Form1.ClientHeight := 200;

    Button1 := TButton.Create(Button1);
    Button1.Parent := Form1;
    Button1.Caption := 'Hi';
    Button1.Left := Form1.ClientWidth - Button1.Width - 16;
    Button1.Top := Form1.ClientHeight - Button1.Height - 16;
    Form1.ShowModal;

    Button1.OnClick:=OnButton1Click; // خطا میده

  Finally
    Form1.Free;
  End;

  Application.Run;
end.

با تشکر