Обработчик событий для динамических кнопок

TMyObject=class
  data1:integer;
  data2:string;
  button:TButton;
end;
 
TMyObjects=class(TObjectlist<TMyObject>)
  function ByButton():TMyObject;
end;
 
TForm1=class(TForm)
...
  List:TMyObjects;
end;
...
 
function TMyObjects.ByButton(b:TButton):TMyObject;
begin
  for i:=0 to Count-1 do
  begin
    result := items[i];
    if result.button = b then
      exit;
  end;
  result := nil;
end;
 
procedure TForm1.FormCreate(Sender:TObject);
begin
  List:=TMyObjects.Create(true);
end;
 
procedure TForm1.AllButtonsClickProc(Sender:TObject);
var button:TButton absolute Sender;
  obj:TMyObject;
begin
  obj:=List.ByButton(button);
  if (obj<>NIL) then
  begin
    showMessage(obj.data2);
  end;
end;
 
procedure TForm1.LoadList();
begin
  /// ..... к-нить цикл
  obj:=TMyObject.Create;
  obj.button := TButton.Create(self);
  obj.button.OnClick :=AllButtonsClickProc;
  list.add(obj);
  /// .....
end;

if btnNumber mod 4 = 0 then
  CreateNewPanel();
CreateButton();
 
procedure CreateButton();
begin
  Button:=TButton.Create(self);
  Button.Parent:=curPanel;
  Button.Align := alLeft;
  Button.Left := 10000;
end;