[icWasya]

как то так

Код:

procedure SetCahngeEvent(Sender:TControl; ChangeEvent:TNotifyEvent);
var
  I:Integer;
  C:TControl;
begin
  for I:=0 to Sender.ControlCount-1 do begin
    C:=Sender.Controls[i];
    if C is TEdit then TEdit(C).OnChange:=ChangeEvent else
    if C is TPanel then SetCahngeEvent(C,ChangeEvent) else
    if C is TGroupBox then SetCahngeEvent(C,ChangeEvent) else
    (* ещё пяток проверок, если эти не подошли*)
  end;
end;