[Lotles]

Вот что-то путаю PChar и указатели, помогите разобраться

Код:

var
  Form1: TForm1;
  Str:string;
  p:PChar;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=str; {в этой процедуре на кнопку нажимаешь в Edit1 пропадает все, что вводишь и в Edit2 ничего нет, и ошибок нет (не понятно)}
P:=@str;
Edit2.Text:=String(p^);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Str:=Edit1.Text;
New(p);
p^:=str; //Здесь ошибку выдает почему-то
Edit2.Text:=String(p^);
Dispose(p);
end;

Admin: Пользуемся тегами иначе последуют санкции!

Почему так происходит ???