ايران ويج

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

کد: 
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.

با تشکر

The.Ghost