[NumLock]

всем сделай один обработчик:

Код:

procedure TForm1.CheckBoxKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then TCheckBox(Sender).Checked:=not TCheckBox(Sender).Checked;
end;