Ya lo he solucionado. Debe ser que estaba un poco ofuscado, pues la solución era bien simple: En el evento OnCustomDrawItem me empeñaba en querer dibujar todo el recuadro:
Código Delphi
[-]
ListView1.Canvas.Brush.Color := clAqua;
ListView1.Canvas.FillRect(Rect); <------ Esto sobra
cuando ésto no era necesario.
Saludos.