有关类里再分配内存的问题！求助！

Tmyclass=class
          header: tlist;
          private
           arecord:^arrnode;
          public            procedure  init(k:integer);
            procedure  insert (k,a,b:integer);
            function posindex(k,a:integer):integer;
            function pos (k,a,b:integer):list;
   end;
var
  index:integer;
  aray:array of tmyclass;
implementation
 uses   llfbs;
procedure tmyclass.init (k:integer);
var
  i,len:integer;
begin
  aray[k]:=tmyclass.Create;
  len:=ds[k].kcount;
  header:=tlist.Create;
 .............为什么单步执行到header:=tlist.create;时出错。错误提示为
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 004AF0BB in module 'Project1.exe'. Write of address 00000004'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
请高手们不吝赐教！！！