نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج

[medreg]

السلام عليك ورحمة الله تعالى وبركاته
نافذة FSplashScreen
بعد الدخول الى البرنامج تبقى مفتوحة حت الخروج النهائي من البرنامج  ماذا يجب علي فعله حتى لا تبقى مفتوحة
الكود المستعمل

كود :

program Mdts; uses  Vcl.Forms,  Winapi.Windows,  UnitPasse in 'UnitPasse.pas' {FormPasse},  UMenu in 'UMenu.pas' {FMenu},  UnitMotPasse in 'UnitMotPasse.pas' {FormMotPasse},  UDMPasse in 'UDMPasse.pas' {DMPasse: TDataModule},  UDMMandat in 'UDM.pas' {DM: TDataModule},  UPrmMandat in 'UPrmMandat.pas' {FPrmMandat},  UBulletinMdt in 'UMdt.pas' {FMdt},  USplashScreen in 'USplashScreen.pas' {SplashScreen}; {$R *.res} begin  Application.Initialize;  SplashScreen:=TSplashScreen.Create(Application);  SplashScreen.Show;  SplashScreen.Update;  Application.MainFormOnTaskbar := True;  Application.CreateForm(TFMenu, FMenu);  Application.CreateForm(TDMPasse, DMPasse);  Application.CreateForm(TDM, DM);  Application.CreateForm(TSplashScreen, SplashScreen);  sleep(1000);  SplashScreen.close;  SplashScreen.Release;  Application.Run; end.

---

السلام عليك ورحمة الله تعالى وبركاته
نافذة FSplashScreen
بعد الدخول الى البرنامج تبقى مفتوحة حت الخروج النهائي من البرنامج  ماذا يجب علي فعله حتى لا تبقى مفتوحة
الكود المستعمل

كود :

program Mdts; uses  Vcl.Forms,  Winapi.Windows,  UnitPasse in 'UnitPasse.pas' {FormPasse},  UMenu in 'UMenu.pas' {FMenu},  UnitMotPasse in 'UnitMotPasse.pas' {FormMotPasse},  UDMPasse in 'UDMPasse.pas' {DMPasse: TDataModule},  UDMMandat in 'UDM.pas' {DM: TDataModule},  UPrmMandat in 'UPrmMandat.pas' {FPrmMandat},  UBulletinMdt in 'UMdt.pas' {FMdt},  USplashScreen in 'USplashScreen.pas' {SplashScreen}; {$R *.res} begin  Application.Initialize;  SplashScreen:=TSplashScreen.Create(Application);  SplashScreen.Show;  SplashScreen.Update;  Application.MainFormOnTaskbar := True;  Application.CreateForm(TFMenu, FMenu);  Application.CreateForm(TDMPasse, DMPasse);  Application.CreateForm(TDM, DM);  Application.CreateForm(TSplashScreen, SplashScreen);  sleep(1000);  SplashScreen.close;  SplashScreen.Release;  Application.Run; end.

بعدما حذفت السطر
//  Application.MainFormOnTaskbar := True;

حلت المشكلة والسؤال مطروح هل حذف السطر السالف الذكر صواب أم خطأ