在Delphi中发布表单时获取列表索引超出界限

I'm developing an application with a security device that does some heavy checking at a separate thread. The return code differs from several situations, it's just do or die, and there is a specific case where the user has an old license and is given the chance to upgrade his license on the fly. If he chooses to do so, the process of upgrading the license takes some time, so I'm creating a simple form with just one label and exhibiting a simple message with this label, all at runtime, using a function that returns a TForm. This is the code for such function: I'm developing an application with a security d