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;