Клетки StringGrid, в которых четные числа закрасить красным, нечетные - синим цветами.

procedure TForm1.FormCreate(Sender: TObject);
var
ACol, ARow:Integer;
begin
Randomize; //генерируем случайные числа
 for ARow :=0 to strngrd1.RowCount-1 do
 for ACol :=0 to strngrd1.ColCount-1 do
 begin
strngrd1.Cells[ACol,ARow] :=IntToStr(Random(99)+1); //заполняем ими StringGrid
 end;
end;
 
// закрашиваем ячейки
procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if  StrToInt(strngrd1.Cells[ACol,ARow]) mod 2=0 then //если число в ячейке
                                    //четное, то
begin
with strngrd1.Canvas do
begin
Brush.Color:= clRed; //закрашиваем прямоугольную область ячейки
 //в красный цвет
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, strngrd1.Cells[ACol, ARow]);
end;
end
else // иначе (если нечетное)
with strngrd1.Canvas do
begin
Brush.Color:= clBlue; //окрашиваем в синий цвет
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, strngrd1.Cells[ACol, ARow]);
end;
end;
 
end.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var Value : Integer;
begin
  with (Sender as TStringGrid) do
  begin
    if TryStrToInt(Cells[ACol, ARow], Value) then // Если это вообще число
      if Value mod 2=0 then // и оно - четное
        Canvas.Brush.Color:= clRed // закрашиваем прямоугольную область ячейки
      else
        Canvas.Brush.Color:= clBlue; //окрашиваем в синий цвет
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
  end;
end;