Interceptar Mensagem (Alert)

Estou usando o componente WebBrowser c/ Delphi 7 e gostaria de saber se há uma forma de saber quando a página dispara uma caixa de mensagem (Alert) ? Eu preciso saber quando ela foi disparada para interceptar e capturar o erro !

Alguem tem alguma dica / sugestão ?

Obs:>
Pensei em capturar pelo evento Application.Onmessage já que a mensagem é disparada pelo sistema operacional (Pelo menos eu penso que é....) mas não sei o código da mensagem gerada ,,,