操作ini文件的问题。为何不能读pchar

－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Edit1.Text:= Name;
提示这个有错！
－－－－－－－－－－－－－－－－－－－－－－unit Tini;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
        Age :Integer;
        Name:pchar;begin
        Age := GetPrivateProfileInt('PersonalInfo','Age',0,'c:\test.ini');
        Edit2.Text:= IntToStr(Age);
        Name :=' ';
      GetPrivateProfileString('PersonalInfo','Name',' ', Name,100,'c:\test.ini');
        Edit1.Text:= Name;end;
procedure TForm1.FormDestroy(Sender: TObject);
var
AgeStr :pChar;
Name :pChar;
begin
        AgeStr := pChar('Age = '+ Edit2.Text );
        WritePrivateProfileSection('PersonalInfo',AgeStr,'c:\test.ini');
        Name := pChar (Edit1.Text);
        WritePrivateProfileString('PersonalInfo','Name',Name,'c:\test.ini');end;end.