Delphi中动态生成的button调用onclick如何传递参数

// 自定义事件过程，过程名可以任意取
procedure TForm1.OnClick(Sender: TObject);
begin
  if Sender is TButton then
  begin
    if TButton(Sender).Name = 'button1' then
      .. .
    else if TButton(Sender).Name = 'button2' then
      .. .
  end;
end;

// 创建TButton
var
  btn: TButton;

begin
  btn := TButton.Create(Application);
  btn.Name := ''; // 自己定义，注意不要有重复
  btn.Caption := ''; // 自己定义
  btn.OnClick := OnClick;
end;