Código Delphi [-] copy (cadena,1,2) + '9' + copy(cadena,3,maxint(cadena)
copy (cadena,1,2) + '9' + copy(cadena,3,maxint(cadena)