procedure TForm1.Button1Click(Sender: TObject);
var
  sAnsi : AnsiString;
  sWide : WideString;
begin
  sAnsi := 'My name is 长尾兔, Old 33';
  Showmessage(Copy(sAnsi, 12, 2));
  Showmessage(Copy(sAnsi, 24, 2));

  sWide := WideString(sAnsi);
  Showmessage(Copy(sWide, 12, 1));
  Showmessage(Copy(sWide, 21, 2));
end;

//自己数一下，然后体会一下AnsiString和WideString的区别。

注：关于AnsiString(String)和WideString的详细介绍，请参考Delphi书籍