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

[S.FATEH]

السلام عليكم
في حدث OnShow للـ Form الرئيسي تستدعي Form تسجيل الدخول باستخدام ShowModal

كود :

procedure TfrmPrincipal.FormShow(Sender: TObject); begin frmLogin.ShowModal; end;