[Lotles]

Код:

var
Form1: TForm1;
p:pointer;
p1,p2:pointer;
Str:String;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Str:='666';
p1:=pointer(Str);
p2:=@pointer(Str);

Чем отличается содержимое p1 и p2 ?