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;