Delphi遇到了一个问题.

Delphi的一个小问题
条件是：程序运行时，弹出一个注册对话框，如果注册码错误就弹出一个错误的对话框。对就弹出正确的对话框之后关闭注册框，最后弹出主程序界面，怎么做到

做到最后就不行了,关闭对话框后，程序界面弹不出，

希望会的朋友把代码写下，让我参考下那里错了，谢谢