Можно в запросе возвращать поле с флагом (вместо дублирующего): например 1 - число и 0 - не число.
Тогда при загрузке:
Private Sub Form_Load()
Dim vitem As New TrueOleDBGrid80.ValueItem

With TDBGrid1.Columns(Index).ValueItems
.Clear
.Translate = True

vitem.Value = 0
vitem.DisplayValue = LoadPicture("PathFile\NotNumber.bmp")
.Add vitem

vitem.Value = 1
vitem.DisplayValue = LoadPicture("PathFile\IsNumber.bmp")
.Add vitem
End With
........
End sub

Правда в данном случае при изменении значения в grid (столбец со значение номер/не номер) Вам надо будет отслеживать это событие менять значение в столбце с картинкой на 1 или 0

Втрой вариант:
Private Sub Form_Load()
..........
TDBGrid1.Columns(Index).FetchStyle = True
.....
end sub

Private Sub TDBGrid1_FetchCellStyle(ByVal Condition As Integer, ByVal Split As Integer, _
Bookmark As Variant, ByVal Col As Integer, ByVal CellStyle As TrueOleDBGrid80.StyleDisp)

TDBGrid1.Bookmark = Bookmark
If IsNumeric(TDBGrid1.Columns(Col).Value) Then
CellStyle.BackgroundPicture = LoadPicture("PathFile\IsNumber.bmp")
Else
CellStyle.BackgroundPicture = LoadPicture("PathFile\NotNumber.bmp")
End If
End Sub
При переходе на другую строку картинка будет меняться