Como coloco Canvas em Subitens de um TListView em vsReport?

estou tentando fazer isto no evento oncustomdraw de subitens, so nao consigo me referir ao texto de cada um deles, keria pegar o 1º digito da string e se for ´-´ pintar a cedula de vermelho c nao azul.
se aguem poder me ajudar nisso..