Обращение к созданной кнопке

 b := TButton.Create(Self);
       b.Parent := GForm;
       b.Name:='ButCansel';
       b.Caption:='Выход';
       b.Left:=32;
       b.top:=50;
       b.Height:=25;
       b.Width:=121;

procedure TForm1.FormCreate(Sender: TObject);
begin
 b := TButton.Create(Self);
       b.OnClick:=MyBtnClick; // MyBtnClick создать руками
       b.Parent := GForm;
       b.Name:='ButCansel';
       b.Caption:='Выход';
       b.Left:=32;
       b.top:=50;
       b.Height:=25;
       b.Width:=121;
end;
 
 
procedure TForm1.MyBtnClick(Sender: TObject);
begin
  // ....
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;
 
type
  TForm1 = class(TForm)
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    //procedure BClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  
    procedure CClick(Sender: TObject);
 
 
   // procedure BClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
b,b1 : TButton;
 
begin
b := TButton.Create(self);
       b.OnClick:=CClick;
       b.Parent := Form1;
       b.Caption:='1';
       b.Left:=30;
       b.top:=50;
       b.Height:=25;
       b.Width:=100;
       b.Tag:=1;
 
 b1 := TButton.Create(self);
       b1.OnClick:=CClick;
       b1.Parent := Form1;
       b1.Caption:='2';
       b1.Left:=30;
       b1.top:=90;
       b1.Height:=25;
       b1.Width:=100;
       b1.Tag:=2;
 
end;
 
 
 
procedure TForm1.CClick(Sender: TObject);
begin
 if (Sender as TButton).Tag = 1 then Label1.Caption:='1';
 if (Sender as TButton).Tag = 2 then Label1.Caption:='2';
end;
 
end.