求助：各位大哥请帮我看看这个字符串问题，谢谢！

Question

var
  Form1: TForm1;
  i: integer;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
     ss,ss1:string;
begin
     ss:='r我rr我的4';
     ss1:=copy(ss,1,i);
     showmessage(ss1);
     i:=i+1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
     i:=1;
end;end.
现在问题是，当 i=2  时，就出现了问题
因为 那是一个汉字，
但是，我不知道字符串中什么地方有汉字的啊？这样的问题要怎么处理啊？谢谢！

Answer 1

ss,ss1:string;   //string改为widestring