//全选

var
i:integer;
begin
Checklistbox1.MultiSelect:=True;
for i:=0 to checklistbox1.Items.Count-1 do
CheckListBox1.Checked[i] := True;

//删除选中记录

for i:=CheckListBox1.Items.Count-1 downto 0 do
if checklistbox1.Checked[i]=True then
Checklistbox1.Items.Delete(i);

//删除全部

Checklistbox1.MultiSelect:=True;
Checklistbox1.SelectAll;
Checklistbox1.DeleteSelected;