TCheckListBox.items.checked[n] alle auf einmal setzen?

[KodeZwerg]

Ich habe es gerade mal ausprobiert und stelle keine Neuzeichnungen fest.
Ich hab 50 Einträge in eine CheckListbox abgelegt und so den Checked-Wert verändert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
 for i := 0 to CheckListBox1.Items.Count-1 do
 begin
  CheckListBox1.Checked[i] := not CheckListBox1.Checked[i];
 end;
end;