Zmiana koloru zaznaczonego rekordu w ListView

Witam,
w kodzie jest chyba jakiś błąd bo nie działa mi zmiana koloru tła zaznaczonego rekordu:

 
procedure TLogowanie_admin.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with ListView1.Canvas do
     begin
     if  Item.Selected then
        begin
        Font.Color := clgreen;                        // Dla odmiany tutaj zmienia kolor tekstu..
       Brush.Color  := clgreen;                      // niestety nie zmienia koloru gdy wybiorę rekord
        end;
     end;
// ListView1.Canvas. Brush.Color  := clgreen; // zmienia kolor wszystkich rekordów
DefaultDraw := True;
end;

Wie ktoś co robię źle?
Proszę o pomoc.

Nie rozumiem - kod działa prawidłowo; A to, że oprócz ustawienia kolorów nie robisz nic poza tym, to już inna sprawa.

@furious programming To jak powinienem wywołać kolorowanie tła zaznaczonego rekordu?

Tutaj przykład - http://stackoverflow.com/questions/6617058/delphi-canvas-fillrect-in-list-view

A tu dłuższy artykuł wyjaśniający malowanie tego komponentu - http://delphidabbler.com/articles?article=16