1. procedure Foo();  
2. var  
3.   s: AnsiString;  
4. begin  
5.   s := '1234567890';  
6.   ShowMessage(IntToHex(Integer(@s[1]), 8));  
7. end;  
8.   
9. procedure TForm1.Button1Click(Sender: TObject);  
10. var  
11.   s: AnsiString;  
12. begin  
13.   s := '1234567890';  
14.   ShowMessage(IntToHex(Integer(@s[1]), 8));  
15.   Foo;  
16. end;  

1. var  
2.   s: AnsiString;  
3. begin  
4.   s := Caption;  
5.   ShowMessage(IntToHex(Integer(@s[1]), 8));  
6. end;  

1. var  
2.   s, s2: AnsiString;  
3.   p: ^Integer;  
4. begin  
5.   s := Caption;  
6.   p := Pointer(@s[1]);  // 应该是得到s[1]的地址，即第一个字符的地址
7.   Dec(p, 2);  // 前移2个单位（8个字节，因为每个^integer类型的数据长度是4）
8.   ShowMessage(IntToStr(p^));  // 1，引用计数为1
9.   
10.   s2 := s;                    // 引用计数+1了  
11.   ShowMessage(IntToStr(p^));  // 2，引用计数为2
12. end;  

http://blog.csdn.net/aqtata/article/details/38905387