[Lotles]

Подскажите, почему во втором случае не нужно выделять память ?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
p:^integer;
a:integer;
str:^String;
begin
New(str);
Str^:=Edit1.Text;   //Здесь нужно выделение памяти

a:=StrToInt(Edit1.Text);  //Здесь не нужно выделять память
p:=@a;
p^:=p^*2;
ShowMessage(IntToStr(p^));