procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  ListView1.Checkboxes := (Sender as TCheckBox).Checked;
end;