Checkear al menos un DBCombobox

[look]

Empezado por Lenny

Estimado, me acabo de dar cuenta que cometi un eror garrafal, no son DBComboBox, son DBCheckBox, mil perdones... lo que dices si funcionaria con DBCombobox, pero los DBCheckBox no traen la opcion "OnChange, mil perdones nuevamente y espero puedas ayduarme nuevamente, corrijo de inmediato el POST ORIGINAL...

Código Delphi [-]
var b:boolean;

      for i := 0 to (Self.ComponentCount - 1) do
      begin
        if Self.Components[i] is TDBChecBox then
        begin
         if  TDBChecBox(Self.Components[i]).Checked then b := true;
        end;
      end;
    if b then showmesage('Algo');