[roamer]

Код:

//===================================================          
procedure TForm1.Button1Click(Sender: TObject);
var p,z,i,j:integer; s,s1,s2:string;
begin
  for p:=0 to CheckListBox1.Count-1 do begin
    if CheckListBox1.Checked[p] then begin
      ==> z:=CheckListBox1.ItemIndex; !!! Вот это - зачем ???                                                      
      ...              
      ...              
      ==> CheckListBox1.Items.Delete(z); !!! И вот это - зачем ???     
    end;
  end;
end;
//===================================================                                                                                                          
  

                      
Может быть лучше что-то вроде этого:                                                                           

//===================================================                                                                                                          
procedure TForm1.Button1Click(Sender: TObject);
var p,z,i,j:integer; s,s1,s2:string;
begin
  p:=-1;
  while p<(CheckListBox1.Count-1) do
   begin
     p:=p+1;
     
     if CheckListBox1.Checked[p] then begin
        //------------------------------
        //здесь "удалить" соотв. точку                  
        ...
        ...              
        //------------------------------                                                                        
        CheckListBox1.Items.Delete(p);
        p:=p-1;
     end;               
  end;
end;
//===================================================