Verificar TcheckBox checados

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    x: integer;
    algumMarcado: boolean;
begin
algumMarcado:=False;
x:=0;
while x <= Self.ComponentCount - 1 do
    begin
    if Self.Components[x].ClassType = TCheckBox then
        if (Self.Components[x] as TCheckBox).Checked then
            if (Self.Components[x] as TCheckBox).Parent = GroupBox1 then
                begin
                algumMarcado:=True;
                x:=Self.ComponentCount;
                end;
    Inc(x);
    end;
if algumMarcado then
    Application.MessageBox(´Tem CheckBox marcado´,´Verifica´,MB_OK or MB_ICONINFORMATION)
else
    Application.MessageBox(´Não tem CheckBox marcado´,´Verifica´,MB_OK or MB_ICONINFORMATION)
end;