指针 问题

var
  i,j:integer;
  pi,pj:^integer;//Pointer;
begin
   i:=12;
   j:=23;
   New(pi);
   New(pj);
   pi^:=10;
   pj^:=23;

   {
   if pi<>nil then
   FreeMemory(pi);
  }
   DisPose(pi);
   pi:=nil;

   if pi=nil then

   ShowMessage('nil')
   else
   ShowMessage('not nil:'+IntToStr(pi^));

   pi:=pj;

   DisPose(pi);
   pi:=nil;

   DisPose(pj);
   pj:=nil;