Окрасить строку в ListView

[White]

Имеется функция, в которой выполняется запрос
вот часть кода

for i:=0 to ListView1.Items.Count-1 do
            with DataModule1.IBQShared do
           begin
           SQL.Clear;
           SQL.Add('select prj_note,max((dateprint)),max((prjver_name)) from projects '+
                   'left join print_log on projects.prj_id = print_log.prj_id '+
                   'left join................................................. '+
                   'where prj_note=:prj_note and dateprint is not null '+
                   'group by prj_note');
                   ParamByName('prj_note').AsString:=ListView1.Items[i].SubItems[2];
                  Open;
                     datepr := FieldByName('max').AsString;
                     if datepr=' ' then  Окрасить строку в черный цвет
                          else
                            begin
                            ver:=FieldByName('max1').AsString;
                            if ver= ListView1.Items[i].SubItems[3] then    
                            Окрасить строку в черный цвет                              else
                             Окрасить строку в красный цвет;                            end;
                  Close;
           end;

Как организовать эту самую окраску?

[BOBAH13]

Ну про это уже обсуждалось миллионы раз. Раз лень, вот в пару словах..
Вроде в TListItem есть свой-во Data ему пихаем указатель на свою структуру для каждой TListItem в ней можно сделать переменную Color: Tcolor; потом ее меняем... для TListView OwnerDraw в True ( если не ошибся ) потом в OnDrawItem ( кажется ) рисуем то что угодно черпая информацию из Data ->> Color ... собственно все, думаю идея ясна