各位大佬帮忙看看，定义了一个结构数组，不能在其它引用

Question

unit hanZiDic;interfaceuses SysUtils,Windows;type
  hanZi=record
    hanZiCn:String;
    wuXing:string;
    pinYin:string;
    biHua:string;
    sex:Word;
    xing:Word;
    end;var
  hanZiArr: array[0..2] of hanZi;implementationbegin  hanZiArr[0].hanZiCn:='张';
  hanZiArr[0].wuXing:='木';
  hanZiArr[0].pinYin:='Zhang';
  hanZiArr[0].biHua:=7;
  hanZiArr[0].sex:=2;
  hanZiArr[0].xing:=0;  hanZiArr[1].hanZiCn:='王';
  hanZiArr[1].wuXing:='木';
  hanZiArr[1].pinYin:='Wang';
  hanZiArr[1].biHua:=7;
  hanZiArr[1].sex:=2;
  hanZiArr[1].xing:=0;  hanZiArr[2].hanZiCn:='李';
  hanZiArr[2].wuXing:='木';
  hanZiArr[2].pinYin:='Li';
  hanZiArr[2].biHua:=7;
  hanZiArr[2].sex:=2;
  hanZiArr[2].xing:=0;end.引用单元已经USES了该单元门，但是不能调用该数组，请指点，谢谢！

Answer 1

var 
  Form1:   TFrom1; 
  MyLabels:   Array[1..20]   of   TLabel; implementation TFrom1.Create(Sender:   TObject); 
var   i:   integer; 
begin 
  for   i:=1   to   20   do 
  begin 
    MyLabels[i]:=TLabel.Create(Form1); 
    MyLabels[i].Parent:=Form1; 
    MyLabels[i].Caption:= 'xxx '+IntToStr(i); 
  end; 
end; 

Answer 2

unit hanZiDic;interfaceuses SysUtils,Windows;type
  hanZi=record
  hanZiCn:String;
  wuXing:string;
  pinYin:string;
  biHua:string;
  sex:Word;
  xing:Word;
  end;var
  hanZiArr: array[0..2] of hanZi;
  hanziArr1: array[0..2] of string;
  sapStr: string;
implementationbegin
  hanziArr1[0]:='string1';
  hanziArr1[0]:='string2';
  hanziArr1[0]:='string3';  hanZiArr[0].hanZiCn:='张';
  hanZiArr[0].wuXing:='木';
  hanZiArr[0].pinYin:='Zhang';
  hanZiArr[0].biHua:=7;
  hanZiArr[0].sex:=2;
  hanZiArr[0].xing:=0;  hanZiArr[1].hanZiCn:='王';
  hanZiArr[1].wuXing:='木';
  hanZiArr[1].pinYin:='Wang';
  hanZiArr[1].biHua:=7;
  hanZiArr[1].sex:=2;
  hanZiArr[1].xing:=0;  hanZiArr[2].hanZiCn:='李';
  hanZiArr[2].wuXing:='木';
  hanZiArr[2].pinYin:='Li';
  hanZiArr[2].biHua:=7;
  hanZiArr[2].sex:=2;
  hanZiArr[2].xing:=0;end.-------------------------------------------------------------------
  sapStr:=hanZiArr[0].hanZiCn; //这个2010有时候会提示出错，有的时候不会提示，但是cnpack不能联想。
  sapStr:=hanziArr[0]； //这个正常，cnpack联想也正常。//上述语句在一个文件里面试了，也是这样，请问怎么回事，谢谢！