توقف حلقه در ايجاد فرم

[BEHESHT*]

سلام دوستان

من مي خوام قطعه كد زير از يه فرم يه مدام اطلاعات رو دريافت كنم پس پايان اطلاعات رو تو حلقه محاسبه كنم:اشتباه:

مثل زير:


for I := 0 to j do
begin
EnterRes.Show;
a[i]:=ResEnterRes;
kol:= kol + a[i];
end;

ResEnterRes متغيير هستش كه در فرم EnterRes مقدار دهي ميشه اما متسفانه

حلقه همين جور شمارش خودش رو ادامه ميده مثل inputbox منتظر دريافت اطلاعات و بستن شدن فرم نميشه

من چطور مي تونم حلقه رو متوقف كنم تا اطلاعات رو از فرم بگيرم:ناراحت:
بعد شروع به شمارش كنه:ناراحت:

ممنون:خجالت:

[Felony]

فرم EnterRes رو به صورت Modal نمایش بدید و در رویداد OnClose اون ModalResult فرم رو مقدار دهی کنید ، حالا با یک if چک کنید اگر ModalResult مقدار مورد نظر رو برگشت داد کارتون رو انجام بدید .