问大家一个问题啊.帮帮帮啊,只有这么点分啊

///////Begin   Source   
  const   
      cCharCn:   array[#32   ..   #126]   of   string[2]   =   
  (   
  {   }'　',{!}'！',{"}'＂',{#}'＃',{   }'＄',{%}'％',{&}'＆',{'}'＇',{(}'（',   
  {)}'）',{*}'＊',{+}'＋',{,}'，',{-}'－',{.}'。',{/}'／',{0}'０',{1}'１',   
  {2}'２',{3}'３',{4}'４',{5}'５',{6}'６',{7}'７',{8}'８',{9}'９',{:}'：',   
  {;}'；',{<}'＜',{=}'＝',{>}'＞',{?}'？',{@}'＠',{A}'Ａ',{B}'Ｂ',{C}'Ｃ',   
  {D}'Ｄ',{E}'Ｅ',{F}'Ｆ',{G}'Ｇ',{H}'Ｈ',{I}'Ｉ',{J}'Ｊ',{K}'Ｋ',{L}'Ｌ',   
  {M}'Ｍ',{N}'Ｎ',{O}'Ｏ',{P}'Ｐ',{Q}'Ｑ',{R}'Ｒ',{S}'Ｓ',{T}'Ｔ',{U}'Ｕ',   
  {V}'Ｖ',{W}'Ｗ',{X}'Ｘ',{Y}'Ｙ',{Z}'Ｚ',{[}'［',{\}'＼',{]}'］',{^}'＾',   
  {_}'＿',{`}'｀',{a}'ａ',{b}'ｂ',{c}'ｃ',{d}'ｄ',{e}'ｅ',{f}'ｆ',{g}'ｇ',   
  {h}'ｈ',{i}'ｉ',{j}'ｊ',{k}'ｋ',{l}'ｌ',{m}'ｍ',{n}'ｎ',{o}'ｏ',{p}'ｐ',   
  {q}'ｑ',{r}'ｒ',{s}'ｓ',{t}'ｔ',{u}'ｕ',{v}'ｖ',{w}'ｗ',{x}'ｘ',{y}'ｙ',   
  {z}'ｚ',{{}'｛',{|}'｜',{   }'｝',{~}'～');   
        
  function   GBTextToStr(mText:   string):   string;   {   返回字符串转换成半角字符串   }   
  var   
      I:   Integer;   
      J:   Char;   
      S:   string;   
  begin   
      Result   :=   '';   
      for   I   :=   1   to   Length(WideString(mText))   do   begin   
          S   :=   WideString(mText)[I];   
          if   Length(S)   >   1   then   for   J   :=   #32   to   #126   do   
              if   cCharCn[J]   =   S   then   begin   
                  S   :=   J;   
                  Break;   
              end;   
          Result   :=   Result   +   S;   
      end;   
  end;   {   GBTextToStr   }   
  ///////End   Source   
    
  ///////Begin   Demo   
  procedure   TForm1.Button1Click(Sender:   TObject);   
  begin   
      Memo1.clear;
      Memo2.clear;
  end;   
    
  procedure   TForm1.Button2Click(Sender:   TObject);   
  begin   
      Memo2.Text   :=   GBTextToStr(Memo1.Text);   
  end;   
  ///////End   Demo
这是一个全角转半角的代码,可是中间我有的代码是要半角转全角的,请问有办法吗?麻烦大家了,只有20分,还请大家帮个忙