مكونات الفورم لاتظهر مع جملة for

[samnaj00]

السلام عليكم ورحمة الله وبركاته
في الفورم 1 لدي جملة for والتي تستغرق5 ثواني
انشأت فورم2 ليظهر اول جملة for ويختفي في النهاية (للاعلام بأن الكود يعمل ولم ينتهِ)
الفورم2 فيه image-panel-lable لكن هذه المكونات لا تظهر في الفورم بسبب جملة for  - طبعاً المكونات تظهر بدون جملة for

كود :

begin   Form2.Show;   for i:= 1 to 100000 do   Label1.Caption := IntToStr(i);   Form2.Close; end;

فكيف الحل ؟

[Delphi2020]

وعليكم السلام ورحمة الله و بركاته.
في مكان show ، جرب showmodal

[samnaj00]

وعليكم السلام ورحمة الله و بركاته.
في مكان show ، جرب showmodal

استاذي الكريم
في حال اظهرت الفورم2  SHOWMODAL  فإن جملة FOR تتوقف ولا تعمل الى ان تغلق الفورم2

[محمد عبد العزيز]

كود :

var i : integer; begin Form2.Show; for i:= 1 to 100000 do begin Label1.Caption := IntToStr(i); Application.ProcessMessages; end; Form2.Close; end;

[samnaj00]

كود :

var i : integer; begin   Form2.Show;   for i:= 1 to 100000 do begin   Label1.Caption := IntToStr(i);   Application.ProcessMessages;   end;   Form2.Close; end;

كل الشكر لك استاذي الكريم
هذه الطريقة تمام والتي اعتبرها بديلة عن طريقة ربط بروكسبار بكود ( - اي كود - for-update) الذي يستغرق وقتاً للانتهاء