Pues he hecho una prueba y me va perfectamente:
Código Delphi
[-]
procedure TForm1.tes1Click(Sender: TObject);
begin
tes1.Checked:=Not(tes1.checked);
end;
Con este ejemplo al pulsar sobre el item en cuestión se marca sino lo está y desmarca si lo estuviera.
UN Saludo.