procedure DeleteChecked(CheckListBox: TCheckListBox); var N : integer; begin with CheckListBox do begin Items.BeginUpdate; try for N := Count-1 downto 0 do if Checked[N] then Items.Delete(N); finally Items.EndUpdate; end; end; end;