델파이 초보입니다. 코딩 도중 제목과 같은 에러가 떴는데 뭐가 잘 못된 건지...
도움 부탁 드립니다.
---------------------------------------------
내용: dtdTree.pas에서 이름을 셋팅 한 후 test.pas 폼의 버튼을 누르면 첫번
째 이름이 화면에 출력 되도록 합니다.
---------------------------------------------
소스 : test.pas

unit Test;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses dtdTree;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  showmessage(dtdTree.firstElement[0].name);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  initNode;
end;

end.

------------------------------------------
소스 : dtdTree.pas

unit dtdTree;

interface

type
  TFirstDtdElement = RECORD
    name : string;   // 이름
    id   : string;   // 고유 id
    parentid : string;  // 부모 id
    count : integer;    // 최대 개수
  END;

type
  procedure initNode;  <- 이 부분에서 에러

var
  firstElement : array[0..15] of TFirstDtdElement;

implementation

procedure initNode;
begin
  firstElement[0].name := 'aa';
  firstElement[1].name := 'bb';
end;
--------------------------------------------------------
책을 한 권 다 봤는데도.. 문법을 다 모르겠어요.. 델파이 공부하기
넘 힘드네요.. ㅠ_ㅠ