Небольшой модуль добавляет возможность сделать ответ по таймауту у любого модального окна (Messagebox, диалог из ресурса, форма).
Совместимость: проверено на XE2, возможно будет работать начиная с 2009 (используются reference).
Простейший пример
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
// таймер на 5 сек, кнопка ищется по классу 'Button', индекс 1
LaunchCountdown(Handle, 5, cdsByClass, 1, 'Button');
Res := MessageBox(Handle, 'Do something bad?', 'Mmm?', MB_YESNOCANCEL);
Модуль, демо/тесты: https://github.com/Fr0sT-Brutal/Delphi_DlgCountdown
upd 27-01-15:
* Оформлен как модуль, с демо-проектом
* Переделана логика поиска модального окна, теперь работает как и должна