Listview con Checkbox

[alquimista]

Se que han pasado unos cuantos años. Pero es un código interesante.
He probado el ejemplo de cloayza y veo que en las columnas que tienen texto (por ejemplo columna Age), si pulsas para editar aparece un checkbox también. ¿Hay alguna versión que indique que columnas solo son checkbox y cuales no?

En la linea:

     If -1 <>listview1.perform( LVM_SUBITEMHITTEST, 0, lparam(@hittestinfo)) Then

del procedure TForm1.ListviewChecked(Sender: TObject);

¿se podría poner?

     If -1 <>TListView(Sender).perform( LVM_SUBITEMHITTEST, 0, lparam(@hittestinfo)) Then

para así abstraer el procedure para otros Listview?

Gracias