Закрыть диалоговое окно Delphi через [x] секунд

Можно ли заставить Delphi закрыть диалог ShowMessage или MessageDlg по прошествии определенного времени?

Я хочу показать пользователю сообщение, когда приложение закрывается, но не хочу останавливать приложение от завершения работы более чем на 10 секунд или около того.

Могу ли я закрыть диалоговое окно по умолчанию через определенное время , или мне нужно будет написать свою форму?