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.