[look]

Empezado por ecfisa

Hola de nuevo.

Entonces podrías hacer:

Código Delphi [-]
function TForm1.HasDBCheckBoxChecked: Boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 0 to ComponentCount - 1 do
    if (Components[i].ClassName = 'TDBCheckBox') and
       (Components[i] as TDBCheckBox).Checked then
     Result:= True;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not HasDBCheckBoxChecked then
    ShowMessage('Al menos uno debe estar seleccionado');
end;

Saludos.

lo que yo dije pero en nivel 2