Beto, blz ?
Seguinte , vc teria que pegar por partes do texto, no caso, primeiramente teria que trocar alguns caracteres, como por exemplo do ,{"codigo":"7898943452238","vTotal":6.49,"vUn":6.49,"qtde":1} onde ": teria que mudar para ",, para não lhe dar problema na conversão e depois pegar o que lhe interessa, como :
codigo, vtotal etc
Abraços
PS: A troca pode ser feita através do StrTran(cTexto,Antigo,Novo)
Ex.: cTexto := StrTran(cTexto,[":],[",])