[Marvel]

как-то вот так

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s: string;
  i: integer;
begin
  s := (Sender as TStringGrid).Cells[ACol, ARow];
  with (Sender as TStringGrid).Canvas do
  begin
    try // нужно, в случае если в ячейке не число, что бы не выскакивала ошибка
      i := StrToInt(s);
      if (i / 2) = (i div 2) then Font.Color := clYellow {если четное - то желтный цвет}
        else Font.Color := clBlue; {либо синий}
    except // если в ячейке не число
      Font.Color := clRed; // то пишем красным
    end;
  TextOut(Rect.Left + 2, Rect.Top + 2, s); // "отрисовуем" текст
  end;
end;