[Source]

Создаю на форме кнопку:

Код:

    Button := TButton.Create(Form1);
    with Button do
    begin
      Parent := Form1;
      Caption := 'Кнопка 1';
      Height := 25;
      Width := 75;
      Top := i * 25 + 25;
      Left := 50;
      Name := 'Button1';
      OnClick := ButtonClick;
    end;

а
Но не могу понять как написать ButtonClick (это эвент), не подскажите ? И возможно ли будет из этого ButtonClick потом узнать имя кнопки (Name) ?

[NumLock]

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ButtonClick(Sender: TObject);
  end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage(TButton(Sender).Name);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TButton.Create(Self) do
  begin
    Parent:=Self;
    Caption:='Дженсон Кнопка';
    Left:=10;
    Top:=10;
    Width:=100;
    Name:='JensonButton';
    OnClick:=ButtonClick;
  end;
end;

end.

[Source]

Сообщение от NumLock

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ButtonClick(Sender: TObject);
  end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage(TButton(Sender).Name);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TButton.Create(Self) do
  begin
    Parent:=Self;
    Caption:='Дженсон Кнопка';
    Left:=10;
    Top:=10;
    Width:=100;
    Name:='JensonButton';
    OnClick:=ButtonClick;
  end;
end;

end.

[Error] Unit2.pas(129): Undeclared identifier: 'ButtonClick'