monta funcao atualiza recebendo valor das celulas como parametro
DBGCAIXA.TextArray(1,2)=subTotal(DBGCAIXA.TextArray(20,4),
DBGCAIXA.TextArray(20,4)DBGCAIXA.TextArray(20,4))
ou algo mais trabalhado com passe linha inicial e linha final e na funcao percorra o grid colhendo valores e totalizando.