Fórum Erro de memória usando classes #344643

Na Unit1 tenho o seguinte código

procedure TForm1.Button3Click(Sender: TObject);
begin
Pessoa.SetNome(Edit1.Text);
end;

e na unit3:
unit Unit3;

interface

uses
Unit2;

type
TPessoa = Class
private
PNome: String;
published

public
procedure SetNome(NomeTMP: String);
property Nome: String read PNome Write SetNome;
end;

implementation

procedure TPessoa.SetNome(NomeTMP: String);
begin
PNome := NomeTMP;
end;

end.


Ele dá erro de Memória, onde poderia estar o erro?
E para que serve a linha
property Nome: String read PNome Write SetNome;

Estou fazendo tantas perguntas pq estou tentando trabalhar com classes e estou acomplanhando um artigo

Obrigado!