var
  R: TPerlRegEx;
  start, stop: integer;
begin
    if AText = '' then exit;

    R:= TPerlRegEx.Create;
    R.Options := [preCaseLess];
    try
      R.RegEx := '(\d+)\s+тысяч';
      R.Subject := 'Вася пришел в школу и отдал 5 тысяч рублей'
      R.Replacement:= '\1\xA0тыс.'
      if R.Match then
      begin
        repeat
          start:= r.MatchedOffset - 1;
          stop:= start + R.MatchedLength;
          oWord.OleObject.Application.ActiveDocument.Range(start, stop).Select;  //выделели найденное место в тексте для внимания
          if Application.MessageBox('Найдено совпадение. Заменить?', 'Сообщение', MB_YESNO + MB_ICONQUESTION) = 6 then
          R.Replace; //заменить текст если согласны
        until not R.MatchAgain;
        AText:= R.Subject;
      end;
    finally
      FreeAndNil(R);
    end; 

R.Replacement:= ChangeCpecialCharacter(AReplace);


function ChangeCpecialCharacter(s: string): string;
var
  i, p: integer;
  ch: integer;
  j, str: string;
begin
  Result:= '';
  i:= 0;
  p:= pos('\x', s);
  if p > 0 then
  begin
    j:= copy(s, p+2, 2);
    ch:= StrToInt('$'+j);
    result:= result + copy(s, i, p-1) + chr(ch);
    i:= p;
    while p > 0 do
    begin
      p:= pos('\x', s, p+3);
      if p > 0 then
      begin
        j:= copy(s, p+2, 2);
        ch:= StrToInt('$'+j);
        str:= copy(s, i+4, (p-4)-(i+4));
        result:= result + str + chr(ch);
        i:= p;
      end;
    end;
    result:= result + copy(s, i+4, length(s)-i+4);
  end
  else
  Result:= s;
end;