1:
2:
3:

   CLB_middle.Checked[zeilennr2] := CLB_middle.Checked[zeilennr];

   CLB_middle.Checked[zeilennr] := CLB_middle.Checked[zeilennr2];                    

1:
2:
3:
4:

 If CLB_middle.Checked[zeilennr] = false then
  CLB_middle.Checked[zeilennr2] := false;
 If CLB_middle.Checked[zeilennr2] = false then
  CLB_middle.Checked[zeilennr] := false;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

//das hier wird aufgerufen, wenn sich der Zustand ändert
procedure TCheckListBox.ToggleClickCheck(Index: Integer);
var
  State: TCheckBoxState;
begin
  if (Index >= 0) and (Index < Items.Count) and GetItemEnabled(Index) then
  begin
    State := Self.State[Index];
    case State of
      cbUnchecked:
        if AllowGrayed then State := cbGrayed else State := cbChecked;
      cbChecked: State := cbUnchecked;
      cbGrayed: State := cbChecked;
    end;
    Self.State[Index] := State;
    ClickCheck; //hier müsste man nur den Index mitübergeben
  end;
end;

//wird danach aufgerufen und ruft das Event auf
procedure TCheckListBox.ClickCheck;
begin
  if Assigned(FOnClickCheck) then FOnClickCheck(Self); //hier den Index mit übergeben
end;