Dica para uso de CheckListBox

Procedure.TrataChecklist(componente:TCheckListBox;acao:integer);
var
  i,x:integer;
begin
  case acao of
    0:  //seleciona todos
      begin
        for i:=0 to componente.items.Count-1 do
          componente.Checked[i] := true;
      end;
    1: //inverte seleção
      begin
        for i:=0 to componente.items.Count-1 do
          begin
            if componente.Checked[i] = true then
              componente.Checked[i] := false
            else
              componente.Checked[i] := true;
          end;
      end;
    2: //desceleciona todos
      begin
        for i:=0 to componente.items.Count-1 do
          componente.Checked[i] := false;
      end;
    3: // seleciona todos acima
      begin
        x := componente.ItemIndex;
        for i:=0 to x do
          componente.Checked[i] := true;
      end;
    4: //seleciona todos abaixo
      begin
        x := componente.ItemIndex;
        for i:=x to componente.items.Count-1 do
          componente.Checked[i] := true;
      end;
  end;
end;