Checklistbox1 macht Fehlermeldung

[jonsen2.0.0.9]

Hallo,

ich bin ziemlich neu hier also verzeit mir bitte wenn meine Frage dumm ist...

Also:
ich hab folgendes problem.
ich versuche gerade mit delphi ein notizboard zu progen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
CheckListBox1.Items.Add(NoteEdit.text) ;
NoteEdit.Text:='';
end;


procedure TForm1.Button2Click(Sender: TObject);
VAR i:integer;
begin
for i:=0 to CheckListBox1.Items.Count do
  if CheckListBox1.Checked[i]=true then
   CheckListBox1.Items.Delete(i);
end;

sp dat is mein bisheriger text...aber immer wenn ich dann Button2click mache...gibts die Fehlermeldung:

Listenindex überschreitet das Maximum(da ne zahl)

wie kann ich diese abschalten....was hat die zu bedeuten?
HILFE