如何统计字符串占用字节数的问题？？？？紧急求救？

Question

请问：
    如何得到一个字符串占用的字节数问题？   比如： ‘你好啊’ 6个字节
           ‘你好啊123456’ 12个字节 
   （一个汉字两个字节，一个字符1个字节）如何统计出来？

Answer 1

var
  Str: string;
begin
  Str := '你好啊123456';
  ShowMessage(IntToStr(Length(Str))); //10
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  cc:Char;
  ii,nn:Integer;
  ss:array[0..2]of Char;
begin
  nn:=Length(Edit1.Text);
  Edit2.Text:='';
  ss[2]:=char(0);
  ii:=1;
  while ii<nn do
  begin
    cc:=Edit1.Text[ii];
    if(cc>Char($A0)) then
    begin
      ss[0]:=cc;
      cc:=Edit1.Text[ii+1];
      ss[1]:=cc;
      Edit2.Text:=Edit2.Text+StrPas(ss);
      ii:=ii+2;
    end
    else
      ii:=ii+1;
  end;判断汉字的