[DELPHI]ListView i kolory

Mam taki kawałek kodu w zdarzeniu OnCustomDrawSubItem mojego ListView'a:

    if ((Item.SubItems[Pred(SubItem)]='1') OR
        (Item.SubItems[Pred(SubItem)]='+')) then
        lvPlayersList.Canvas.Font.Color:=clGreen
    else if ((Item.SubItems[Pred(SubItem)]='0') OR
        (Item.SubItems[Pred(SubItem)]='-')) then
        lvPlayersList.Canvas.Font.Color:=clRed
    else
        lvPlayersList.Canvas.Font.Color:=clBlack;

O ile mnie pamięć nie myli to coś w tym stylu znalazłem przeszukując forum. Niestety mam z tym mały problem - koloruje mi jedną kolumnę za daleko. W pierwszych trzech SubItem'ach nie występują nigdy znaki '0', '1', '+' i '-', w ostatnim tak samo, ale w przedostatnim mogą pojawić się '0' i '1'. Niestety ostatnie dwie kolumny chcę mieć czarne jak czarna dziura w moim mózgu. Zacząłem kombinować z OnAdvancedCustomDrawSubItem ale dalej klops.

Mam takie pytanie - w jaki sposób formatować tekst nie w wierszach, a w kolumnach???