untitled.m

帮我看看下面的代码！为什么对象里面的方法不能访问其字段？

Type   
      TNj   =   record   
          njh:   integer;   
          ydns:   integer;   
          Njlx:   integer;   
          njmc:   string;   
      end;   
    
      TKs   =   record   
          ksmc:   string;   
          ksh:   integer;   
          kch:   string;   
      end;   
    
      TNodeInf   =   class   
          private   
              fNj:   TNj;   
              fKs:   Tks;   
    
          {   Private   declarations   }   
          public   
              constructor   Create(xqh,xqmc:   string);   
              procedure   SetNj(njmc:   string;   njh,ydns,Njlx:   integer);   
              procedure   SetKs(ksmc,kch:   array   of   string;   ksh:   array   of   integer   );   
    
      end;   
    
    
    
  constructor   TNodeInf.Create(xqh,   xqmc:   string);   
  begin   
      inherited   Create();   
      //other   
  end;   
    
  procedure   TNodeInf.SetKs(ksmc,   kch:   array   of   string;   
      ksh:   array   of   integer);   
  begin   
    
  end;   
    
  procedure     TNodeInf.SetNj(njmc:   string;   njh,ydns,Njlx:   integer);   
  begin   
    
      fNj.njmc   :=   njmc;   
      fnj.njh   :=   njh;   
      fnj.ydns   :=   ydns;   
      fnj.Njlx     :=   Njlx;   
  end;   
    
    
    
    
  procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      testA:TNodeInf;   
  begin   
      testA   :=   TNodeInf.Create('AA','BB');   
      testA.SetNj('AA',1,2,3);   
      testA.Free();   
  end;