закрашивание StrinGrid1

[Jekasea]

Как закрасить строку 34 в желтый цвет.
Набрал код

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
 begin
  with  StringGrid1  do
 begin
  if TStringGrid(Sender).Cells[Acol,Arow]='  выходной' then begin
    Canvas.font.Color :=clRed;
    Canvas.Font.Style:=[fsBold, fsItalic];
    Canvas.FillRect( Rect );
    Canvas.TextOut(Rect.Left, Rect.Top+2, Cells[ACol, ARow]);   end;
     if TStringGrid(Sender).Cells[Acol,Arow]='воскресенье'  then begin
       Canvas.font.Color :=clBlack;
       Canvas.Brush.Color :=clRed;
       Canvas.FillRect( Rect );
       Canvas.TextOut(Rect.Left+5, Rect.Top+2, Cells[ACol, ARow]);   end;

здесь все в порядке,
далее набираю:

 if strtoint(TStringGrid(Sender).Cells[Acol,Arow])>100  then begin
        Canvas.Brush.Color :=clYellow;
        Canvas.FillRect( Rect );
        Canvas.TextOut(Rect.Left+5, Rect.Top+2, Cells[Acol, Arow]);   end;
end;end;

Делфи ругается на ноябрь, который у меня в ячейке [0,2].
Строка 34 у меня выводит количество смен - [2,34] [3,34] [4,34] и [5,34]
[0,34] и [1,34] - выводит текст.

Подскажете как ее закрасить



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Аватар]

if strtoint(TStringGrid(Sender).Cells[Acol,Arow])>100 then begin

Я бы тоже ругался, если бы меня слово типа 'воскресенье' заставляли в Integer сконвертировать

[Jekasea]

Я это тоже понял.
Тогда как правильно задать условие?

[Аватар]

if StrToIntDef(TStringGrid(Sender).Cells[Acol,Arow],0)>100 then begin

[Jekasea]

Спасибо за StrToIntDef все работает.
По весам уже нажал.
Что это за чудо конвентер StrToIntDef ? - объясните, прошу.
Раньше не сталкивался.

[Аватар]

https://www.google.com.ua/?gws_rd=cr...#q=StrToIntDef
и так по любой функции или команде

[Jekasea]

Спасибо - разобрался!