checklistbox1--小梨子

procedure TForm1.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
for i :=0 to checklistbox1.Items.count-1 do
begin
  checklistbox1.Checked[i] := true ;
  if checklistbox1.Checked[i]=true then //注意这句
  begin
    checklistbox1.Items.Delete(i);
  end;
end;
end;