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;