CheckListBox Demo 

unit CheckUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, checklst;

type
  TForm1 = class(TForm)
    CheckListBox1: TCheckListBox;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Edit2: TEdit;
    procedure CheckListBox1Click(Sender: TObject);
    procedure CheckListBox1ClickCheck(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
 With CheckListBox1 do
  Begin
   Edit1.Text := Items[ItemIndex];
  End;
end;


procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
 With CheckListBox1 do
  Begin
   CheckBox1.State := State[ItemIndex];
   If (Checked[ItemIndex]) then
     Edit2.Text := 'Checked'
    else
     Edit2.Text := 'UnChecked';
  End;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 I : Integer;
begin
 For I := 0 to CheckListBox1.Items.Count-1 do
  Begin
   CheckListBox1.State[I] := cbGrayed;
  End
end;
end.