word中转化的汉字拼音，怎么将汉字过滤掉

word中转化的汉字拼音，如何将汉字过滤掉。
我有段话：
学   (   xué   )   而   (   ér   )   时   (   shí   )   习   (   xí   )   之   (   zhī   )   ，   不   (  
bù   )   亦   (   yì   )   悦   (   yuè   )   乎   (   hū   )   。  
怎么把上面的汉字去掉？   我用如下的方式成功，发现有乱码。  
还有就是上面的文字发现中间有看不见的字符，如何去掉，对这方面不太了解请大家帮助。
//是否为汉字
  function   IsHz(Source:   string):   Bool;
begin
    result   :=   ((Word(Source[1])   shl   8   +   Word(Source[2]))   > =   $B0A1)   and         ((Word(Source[1])   shl   8   +   Word(Source[2]))   <=   $D7F9)
end;
//开始处理
procedure   TForm1.Button4Click(Sender:   TObject);
var   Text,Text2,TempText:string;
      i,TextLen:integer;
begin
  Text:= '学   (   xué   )   而   (   ér   )   时   (   shí   )   习   (   xí   )   之   (   zhī   )   ，   不   (   bù   )   亦   (   yì   )   悦   (   yuè   )   乎   (   hū   )   。 ';
  Text2:= ' ';
  TextLen:=length(Text);
  for       i:=0   to   TextLen   -1     do
  begin
    TempText:=   Copy(Text,i,1);
    if       IsHz(TempText)   then
              Text2:=Text2+TempText;
  end;
  showmessage(Text2);
end;

------解决方案--------------------
var Text,Text2,TempText:string; //var Text,Text2,TempText:WideString;