// Note: Use OnClick, not OnCheckboxClick if need to read CheckedCount procedure TForm1.ImageEnMView1Click(Sender: TObject); begin // Display the current count of checked items in the status bar Statusbar1.SimpleText := 'Checked: ' + IntToStr(ImageEnMView1.CheckedCount); end;