checklistbox выделение всех итемок

[student90]

как выделить все итемки в checklistbox при нажатии на клавишу "выделить все"?подскажите пожалуста.

[Showy]

var
  i: Integer;
begin
  for i := 0 to CheckListBox1.Count -1 do
    CheckListBox1.Checked[i] := true;
end;