Ae galera como faço para fazer o seguinte

quero por exemplo quando o kra digitar um valor numa determinada coluna do grid apos ele digitar o grid pegar o valor que ele digitou e formatar pelo valor que esta em outra coluna do grid, mas para cada linha é um formato diferente.

 

tentei esse código mas não deu certo

If TDBGrid1.Columns(5).CellValue(BookMark)  <> "" Then
        TDBGrid1.Columns(1).CellValue(BookMark) = Format(TDBGrid1.Columns(1).CellValue(Bookmark), TDBGrid1.Columns(5).CellValue(BookMark))
End If

 

se alguém souber agradeço