True DBGrid и вставка картинок. - VB

Формулировка задачи:

Есть такая ситуация, в гриде 2 колонки данных (1 - id, 2 - название документа с расширением).
1 проба.doc
2 текст.xls
3 презентация.ppt
Надо в зависимости от расширения документа ставить в 1 колонку значок док-та. делаю так:
Dim NS As New TrueOleDBGrid80.Style
If Right(TDBGrid1.Columns(2), 3) = "xls" Then NS.ForegroundPicture = frm_main.ImageList1.ListImages(7).Picture
If Right(TDBGrid1.Columns(2), 3) = "doc" Then NS.ForegroundPicture = frm_main.ImageList1.ListImages(8).Picture
If Right(TDBGrid1.Columns(2), 3) = "ppt" Then NS.ForegroundPicture = frm_main.ImageList1.ListImages(10).Picture
TDBGrid1.Columns(0).AddRegexCellStyle -1, NS, "[0-9]"
Это не работает, т.к. он применяет в зависимости от условия одну картинку на все строки. Мне надо, чтобы разные картинки. Подскажите, как это сделать?

Решение задачи: «True DBGrid и вставка картинок.»

textual
                            Листинг программы 
                        

                            <font color="blue">For</font> <font color="blue">Each</font> img <font color="blue">In</font> ImageList1.ListImages
      vi.Value = img.Key
      vi.DisplayValue = img.Picture
      vis.Add vi
   <font color="blue">Next</font>
                        