procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  //Вывод индекса и заголовка элемента
  label1.Caption:=IntToStr(Item.Index)+' '+Item.Caption+':';
  //Бывают три вида изменения состояния элемента
  case Change of
    ctText: label1.Caption:=label2.Caption+' Text'; //Его текст
    ctImage: label1.Caption:=label2.Caption+' Image'; //Картинка
    ctState: label1.Caption:=label2.Caption+' Status'; //Статус (В т.ч. и CheckBox)
  end;
  //Ну и, собственно, оно:
  if Item.Checked then
    label1.Caption:=label2.Caption+' Checked'
  else
    label1.Caption:=label2.Caption+' UNChecked';
end;