اظهار رسالة مرة واحدة باستخدام مكون Timer

[napster.hacker]

السلام عليكم ورحمة الله وبركاته

قمت بوضع شريط التقدم Progress bar وTimer ووضعت كود داخل التايمر لاظهار رسالة عندما يصبح موقع شريط التقدم 100

if pb1.position = 100 then application.messagebox ('' , '' , Mb_ok)
tmr1.enabled := False;

الهدف هو اظهار مسج عند الوصول الى 100 وتعطيل التايمر لكي لا تظهر الرسالة مرة اخرى
المشكلة التي تواجهني هي :
الرسالة تظهر اكثر من مرة وعندما الضغظ على ok تتوقف ظهور الرسالة..
يعني التايمر لا يتعطل الى بعد الضغظ على " اوك " وفي حال لم اضغط على " اوك " الرسالة تظهر في اكثر من مربع
شاكر جهودكم الطيبة

[Houdini]

استبدل هته : application.messagebox بـ : showmessage
فالاخير تقطع تنفيد البرنامج حتى تتلقى رد من المستخدمـ