Delphi单元初始化不总是调用

我在.bpl中有一个单位,我需要一个我写的新函数的Stringlist.我想要使​​用Stringlist来持久保存应用程序的生命周期,这样每个调用都可以建立在先前的调用发现之上.

所以它在全局范围内宣布,我在初始化部分初始化它,如下所示：

var
  ProductLookup : TStrings;  
...

function foo : Boolean;
begin
  result := (ProductLookup.IndexOfName('bar') >=0); //blow up here. It's nil. Why?
end;
....

initialization
  ProductLookup := TStringList.Create;  // This should get run,but doesn't.

finalization
  FreeAndNil(ProductLookup);

end.

当我单元测试它,一切都很好.但是当它从主应用程序运行时,由于Stringlist为零,所以我正在冒充访问冲突.所以现在我正在使用foo函数中的nil,并在必要时创建.但是我为什么初始化对我来说是不行的.我在初始化中放置了一个调试消息,当它作为BPL加载时,它不会运行,但如果我直接编译到dUnit exe中,则可以运行它.有任何想法吗？ Delphi2005.