Recorrer los componentes de un form y cambiar una propiedad de un determinado tipo de componente
0000-00-00 00:00:00
var X:integer; begin for x:=0 to form1.controlcount -1 do if (form1.controls[x] is tpanel) then tPanel(form1.controls[x]).onclick:=panel1.OnClick; end;