OnPaint kannst du nur die gesamte ListView einfärben. Das geht aber mit OnDrawCell oder so ähnlich. Auf jeden Fall ist das auch bei Delphi nicht ganz einfach hinzukriegen.
Humor ist der Knopf, der verhindert, daß uns der Kragen platzt.
Darum geht es garnicht. Ihr setzt an der TListView an, da liegt der Fehler. Das sollte man mit nem Grid machen, das kann man auch ohne Linien anzeigen lassen. Dann kann man OnDrawCell genau das gewünschte Item abprüfen und dann die Zelle entsprechend einfärben.
Humor ist der Knopf, der verhindert, daß uns der Kragen platzt.