استعمال progressBar في splashscreen

[abdelali91]

السلام عليكم
في مشروعي قمت بإنشاء splashscreen لبرنامج وفمت بإضافة عليها progressBar لتبين حالة التقدم
عندما أقوم بالمعاينة تظهر سبلاش سكرين لكن لا يظهر حالة التقدم
هده محاولتي

كود :

egin splashscreen:=Tsplashscreen.Create(Application); try splashscreen.Show; splashscreen.Timer1.Enabled:=true; splashscreen.ProgressBar1.Position:=splashscreen.ProgressBar1.Position+1; Application.Initialize; splashscreen.Update; sleep(10000); Application.MainFormOnTaskbar := True; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); Application.CreateForm(TForm4, Form4); Application.CreateForm(TForm5, Form5); Application.CreateForm(TForm6, Form6); Application.CreateForm(TForm7, Form7); Application.CreateForm(TForm8, Form8); Application.CreateForm(TForm9, Form9); Application.CreateForm(TForm10, Form10); splashscreen.Hide; finally Application.Run; end; splashscreen.Free; end.