Fechamento inesperado do sistema.

Pessoal,

Estou com um problema em uma aplicação que quando aborto um processo aparece uma mensagem do windows falando que o erro é inesperado e que o programa será fechado.

O interessante é que outras UNIT's com um código bem parecido não dão este problema e abortam normalmente.

Uma parte do código é:

checkCharacterSet := MessageDlg( 'Texto', mtWarning ,[mbYES, mbNO ],0);

        if checkCharacterSet = mrNO then
                begin
                  MessageDlg('Programa encerrado', mtInformation, [mbOK], 0);
                  Halt;
                end

        else if checkCharacterSet = mrYES then
        end;

Pensei que poderia ser alguma coisa de memória mas acontece tb em outras máquinas com SO diferente.

Se alguém tiver alguma ideia.

Obrigado.