uses ...RegExpr..;
var regexp: TRegExpr;
..
  answ = '<tcy rang="6" value="76000"/>';
  RegExp.Expression := '<tcy rang="(\d+)" value="(\d+)"/>'; //регулярка
  RegExp.Exec(answ); //парсим answ регуляркой
  rand := RegExp.Substitute('$1'); //получаем первое совпадение
  value:= RegExp.Substitute('$2');//получаем второе
..