关于edit与memo big5码与GB码转换的问题

我编写了一个BIG5码转换GB码的程序,目的是将以上两个码可以相互转换. 
为什么我用EDIT控件的话,他可以正常转换,但是用memo的话他就不可以互相转换了(输入的都是同样的文字),代码如下: 
EDIT procedure TForm1.Button1Click(Sender: TObject); 
begin 
edit1.Font.Charset :=  CHINESEBIG5_CHARSET; 
end; procedure TForm1.Button2Click(Sender: TObject); 
begin 
  edit1.Font.Charset :=  DEFAULT_CHARSET; 
  edit1.Font.Color:=clblue; 
end; 这个是可以正常转换的 MEMO procedure TForm1.Button3Click(Sender: TObject); 
begin 
richedit1.Font.Charset := CHINESEBIG5_CHARSET; 
richedit1.Font.Color:=clblue; 
end; procedure TForm1.Button2Click(Sender: TObject); 
begin 
richedit1.Font.Charset :=  DEFAULT_CHARSET; 
richedit1.Font.Color:=clred; 
end; 
这个就不可以正常转换了,点了没有反应....
我试过好多次，不可以转换....还是说我哪里要设置的没有设置好？这两个控件的区别在什么地方？ 请大侠们帮我看看以上代码哪里出错了,初学者可能会犯一些低级错误.....