цвет строи ListView в Delphi 2005

Есть обработчик события ListViewCustomDrawItem
var
index: Integer;
begin
if Item=nil then exit;
index:=Item.Index;
if <условие> then
TListView(Sender).Canvas.Brush.Color := clRed
else if <условие> then
TListView(Sender).Canvas.Brush.Color := clGreen
else TListView(Sender).Canvas.Brush.Color := clWhite;
end;

OwnerDraw = false, т.к. если true то строка вообе не выделяется.

В Delphi 7 работало нормально, а вот в 2005 периодически возникает ошибка "Canvas does not allow drawing"
В чем может быть проблема подскажите плиз!