Delphi 7 - StringGrid - изменить цвет шрифта при выполнении условия

[Ягодка]

Добрый вечер, уважаемые программисты! 
В StringGrid выводятся результаты работы программы:


Добавлено через 50 секунд:
Как сделать так, чтобы "надёжные" поставщики выделялись зелёным цветом (вся строка-и название, и результат....), а "ненадёжные" - красным (соответственно, тоже вся строка)?
Пробовала по событию OnDrawCell написать условие: если ='надёжный', то font.color:=clGreen, но ничего не происходит, шрифт всё равно остаётся чёрный

[zubr]

Ручками надо отрисовывать, используя свойство Canvas:
1. Устанавливаем цвет кисти Canvas.Brush.Color
2. Закрашиваем фон ячейки Canvas.FillRect
3. Устанавливаем цвет шрифта Canvas.Font.Color
4. Отрисовываем текст в ячейке Canvas.TextOut

[Ягодка]

Код:

procedure TForm1.StringGrid8DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (StringGrid8.Cells[ACol,2] = 'Ненадёжный') then
    StringGrid8.Canvas.Brush.Color := clRed Else
    StringGrid8.Canvas.Brush.Color := clGreen;

    StringGrid8.Canvas.FillRect(Rect);
    StringGrid8.Canvas.Font.Color:=clWhite;
    StringGrid8.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid8.Cells[ACol, ARow]); //Текст
end;

Результат совсем не тот (см. картинку)

[zubr]

Результат вполне соответствет коду. Обратите внимание на условие:
if (StringGrid8.Cells[ACol,2] = 'Ненадёжный') then
    StringGrid8.Canvas.Brush.Color := clRed Else
    StringGrid8.Canvas.Brush.Color := clGreen;
И подумайте как оно будет выполняться.

[Ягодка]

Спасибо, я всё поняла! )
С наступающим праздником! Побед вам во всём!

[zubr]

Спасибо.