إجراء لتأكيد إغلاق برنامج

[piratewar]

السلام عليكم
قديماً في في بي 6 كنت أكتب هذا الإجراء لتأكيد إغلاق برنامج

كود :

dim x x = msgbox(" Do YOU Want To Close?","End",vbyesno) if x = vbyes then end else exit sub

و لكني أقوم بترجمة هذا الكود إلى باسكال بدون الأمر الذي يساوي الأمر exit sub و الذي يعني إنهاء الإجراء كأنه لم ينفذ
و فعلاً لا يتم إغلاق البرنامج و لكن الذي يحدث أنه يظل محجوز في الذاكرة و لا تظهر النوافذ
جربت الأمر .refresh; للنوافذ لم يفلح فما هو الحل ؟
و شكراً