[Alexs55]

У меня был вариант:

Код:

procedure TForm1.CheckBox1KeyPress(Sender: TObject; var Key: Char);
var
  i : integer;
begin
  i := TForm1.ActiveControl.Tag;
  if Key = #13 then 
    if  btBoxEdit[i].Checked = True then btBoxEdit[i].Checked := False 
  else btBoxEdit[i].Checked := True;
end;

btBoxEdit - массив CheckBox. В каждом CheckBox определён Tag.
Мой вариант работает, но Ваш - в одну строчку, на порядок красивее.
Лезу в паутину, выяснять как можно больше про Sender.

Ещё раз спасибо!!!