先贴代码  
  var  
  len,i:integer;  
  j,k:string;  
  begin  
  memo1.Clear;  
  len:=length(memo2.text);  
  k:=memo2.text;  
  for   i:=1   to   len   do  
  begin  
  if(ord(memo2.text[i])>=32)   and   (ord(memo2.text[i])<=126)   then  
  begin  
  j:=copy(k,1,1);  
  delete(k,1,1);  
  memo1.Text:=memo1.text+j;  
  end  
  else  
  if(ord(memo2.text[i])>=127)   then  
  begin  
  j:=copy(k,1,2);  
  delete(k,1,2);  
  memo1.text:=memo1.Text   +j;  
  end;  
  end;  
  用上面的方法把MEMO2的内容逐字读取到MEMO1上面   为什么当出现字母和汉字混合时就会出现乱码啊，大家给个解决的方法吧。