Evento OnClick CheckBox, evitar que fique com State=cbGrayed

Olá pessoal, gostaria de saber como sair do loop deste evento:
Veja meu código no evento onclick

procedure Form.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
CheckBox1.State := cbUnchecked
else
CheckBox1.State := cbChecked ;
end;

Qual a Forma Correta para que o CheckBox1 nunca entre no
State = cbGrayed