[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) ?