Eine Methode vielen Komponenten zuweisen

[Elvis]

Bereits Control hat die Eigenschaft "Text" und den Event "Click", ein cast ist also eigentlich nicht notwendig:

Delphi-Quellcode:

var
  lbl : Control;
begin
  for label in DeinContainerControl.Controls do
    if lbl is Label then
      include(lbl.Click, DeinClickHandler);

btw: In Chrome sähe das so aus:

Delphi-Quellcode:

for matching label : Label in DeinContainerControl.Controls do
  label.Click += @DeinClickHandler;