CheckBox в CheckListBox

[Ist]

Здравствуйте. Подскажите пожалуйста, как доработать процедуру для CheckListBox:

procedure CH;
 var a,i:integer;
begin
a:=form1.CheckListBox1.ItemIndex;
for i:=0 to 3 do
if i<>a then form1.CheckListBox1.ItemEnabled[i]:=false;
end;
 
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
CH;
end;

Когда я выбираю CheckBox1, все остальные закрываються - это правильно, все отлично. Но если я снимаю галочку с CheckBox1, остальные так и остаються закрытыми. Подскажите пожалуйста, как сделать, чтобы когда я снял галочку с CheckBox1 остальные CheckBox'ы в листе тоже открылись..

[Stilet]

if i<>a then form1.CheckListBox1.ItemEnabled[i]:=not form1.CheckListBox1.ItemEnabled[i];

Идея понятна?

[Ist]

Идея понятна?

Все понял, спасибо большое..