DelphiX无缘无故引起的Access Violation问题！

新建unit2,贴上下面代码：

unit Unit2;
interface
uses
  Forms,DXDraws;

type TDX=class
DirectX:TDXDraw;
constructor Create(Owner:TForm);
destructor Free();
end;

implementation
constructor TDX.Create(Owner:TForm);
begin
if DirectX=nil then begin
  DirectX:=TDXDraw.Create(Owner);
  DirectX.Parent:=Owner;
  DirectX.Initialize();
  DirectX.Visible:=true;
end;
end;

destructor TDX.Free();
begin
if DirectX <>nil then begin
  DirectX.Free();DirectX:=nil;
end;
end;
end.


在主unit里加入下面代码(记得在uses里添加DXDraws,unit2)：
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;dx:array [0..1] of TDX;
begin
for i:=1 to 2 do begin //第2次发生错误
  dx[0]:=TDX.Create(Self);
  dx[1]:=TDX.Create(Self);
  dx[0].Free();dx[0]:=nil;
  dx[1].Free();dx[1]:=nil;
end;
end;

它有2次循环，第1次没发生错误，第2次循环时发生错误。我试过达到这样的条件时才会有错：1.必须是以类的形式把DelphiX包含在类里，2.必须是数组,例如dx,如果是单个则不会发生错误.

指针释放好像没问题，到底是什么问题？谢谢！

---

dx[0]:=TDX.Create(Self);
  dx[0].Free();dx[0]:=nil;

这样试一下
  dx[1]: