if imageindex1<>-1 then
//如果在前面加载图标的工作出现异常就不释放图标，否则会释放到delphi本身使用的图标
myntatest.fimagelist.delete(myntatest.imageindex1);
inherited;
end;
initialization
//在组件第一次被安装时创建了tntatest
myntatest:=tntatest.create;
finalization
//在组件被卸载时释放了myntatest
myntatest.free;
end.
