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

[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) الذي يستغرق وقتاً للانتهاء