Как передать параметры в событие?

{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses
  System, System.Windows.Forms, System.Drawing;
 
procedure OnClick(sender: Object; e: EventArgs);
begin
  MessageBox.Show('Hello World!');
end;
 
begin
  var MyForm := new Form;
  
  var MyButton := new Button;
  MyButton.Location := new Point(10, 10);
  MyButton.Text := 'Push me';
  MyButton.Click += new EventHandler(OnClick);
  MyForm.Controls.Add(MyButton);
  
  Application.Run(MyForm);
end.

  MyButton.Click += OnClick;

{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses
  System, System.Windows.Forms, System.Drawing;
  
type Data = function : integer;
 
procedure OnClick(sender: Object; e: EventArgs; d : Data);
var v : Integer;
begin
  v:= d(); // получаем данные именно в момент срабатывания события
  // А откуда будем получать - задаем еще в компайл-тайме
  MessageBox.Show(Format('Hello {0}!', v));
end;
 
function func : integer;
begin
  result := 200 + DateTime.Now.Second;
end;
 
begin
  var MyForm := new Form;
  
  var MyButton := new Button;
  MyButton.Location := new Point(10, 10);
  MyButton.Text := 'Push me';
  MyButton.Click += (sender, e) -> OnClick(sender, e, func);
  MyForm.Controls.Add(MyButton);
  
  Application.Run(MyForm);
end.