Delphi-PRAXiS - Delphi Array aus Buttons OnClick zuweisen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Array aus Buttons OnClick zuweisen (https://www.delphipraxis.net/119048-array-aus-buttons-onclick-zuweisen.html)

Array aus Buttons OnClick zuweisen

HiHo DP,

ich habe dass Problem, dass ich zur Laufzeit SpeedButtons erstellen muss.
Das habe ich soweit auch gelöst...
Diese Prozedur erstellt einzeln jeden XBtns per Knopfdruck, immer an der Position des neusten Items der LiBoxDownloads

Delphi-Quellcode:

			procedure ...(Sender: TObject);

var XNr: integer;

begin

if (LiBoxNewFiles.ItemIndex >= 0) then

 begin //BtnX: TSpeedButton (schon im OI erstellt); XBtns: array [0..99] of TSpeedButton

  XNr := LiBoxDownloads.Items.Count-1; 

  XBtns[XNr].OnClick := BtnX.OnClick; //MARKIERT MARKIERT MARKIERT MARKIERT MARKIERT ;) 

  LiBoxDownloads.Items.Add(LiBoxNewFiles.Items.Strings[LiBoxNewFiles.ItemIndex]);

  XBtns[XNr] := TSpeedButton.Create(owner);

  XBtns[XNr].Left := LiBoxDownloads.Left+LiBoxDownloads.Width+2;

  LiBoxDownloads.Selected[LiBoxDownloads.Items.Count-1] := TRUE;

  XBtns[XNr].top := LiBoxDownloads.ItemIndex * LiBoxDownloads.ItemHeight + LiBoxDownloads.top;

  XBtns[XNr].Height := LiBoxDownloads.ItemHeight;

  LiBoxDownloads.ClearSelection;

  XBtns[XNr].Caption := 'X';

  XBtns[XNr].Parent := self;

 end;

end;

SO nun soll hier in der markierten Zeile, das OnClick des XBtns auf den BtnX umgeschrieben werden, sodass JEDER Klick auf EINEN der XBtns den BtnX.Click bewirkt.
Das geht so leider aber nicht, weiß jemand WIE es geht?

Vielen Dank schonmal für eure Antworten,

mfg DaSebi