طريقة جعل نافذة ادخال اسم وكلمة المرور في بداية البرنامج

[ابو ريحانة]

السلام عليكم
في حدث onshow للـ form الرئيسي تستدعي form تسجيل الدخول باستخدام showmodal

كود :

procedure tfrmprincipal.formshow(sender: Tobject); begin frmlogin.showmodal; end;

تم التجريب لكن نافذة الدخول لم تظهر عند تشغيل البرنامج