Вопрос по динамическим событиям в Delphi 7.

На форме изначально есть две кнопки, первая создаёт Label (LabelInc) и присваивает ей значение 0, вторая - ещё одну кнопку (ButInc), которая должна прибавлять к значению на LabelInc единицу. Проблема в том, что созданная динамически кнопка не работает. Если описать такую же процедуру для кнопки (Button3), которая есть на форме изначально, то всё работает.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ButincClick(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; x:integer; Butinc:TButton; LabelInc:TLabel;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

LabelInc:=Tlabel.Create(Self);

LabelInc.Parent:=Form1;

LabelInc.Left:=100;

LabelInc.Top:=100;

LabelInc.Width:=25;

LabelInc.Height:=40;

LabelInc.Font.Height:=32;

LabelInc.Caption:=inttostr(0);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Butinc:=TButton.Create(Self);

Butinc.parent:=Form1;

Butinc.Left:=100;

Butinc.Top:=150;

Butinc.Width:=150;

Butinc.Height:=25;

Butinc.Caption:='Прибавить 1';

end;

procedure TForm1.ButincClick(Sender: TObject);

begin

X:=strtoint(labelinc.caption);

X:=X+1;

Labelinc.caption:=inttostr(X);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

X:=strtoint(labelinc.caption);

X:=X+1;

Labelinc.caption:=inttostr(X);

end;

end.