Tratando erros no Delphi

ExceptionSample.pas

var
   saldo, indice : Integer;

begin

   try
     indice := 0;
     saldo := 1;
     saldo := saldo div indice;
     ShowMessage('1 / 0 = ' + IntToStr(saldo));

   except
     on E : EConvertError do
       ShowMessage('Erro de conversão: ' + E.Message);
     
     On E : EDivByZero do
       ShowMessage('Erro de divisão por zero: ' + E.Message);

     // capturando qualquer outro erro
     else
       ShowMessage('Outro erro...');
   end;
   finally
      // rotinas finais aqui
   end;

end;

Esse try .. except ... finally funciona em alguma versão do Delphi?

Muito interessante!

Qual a sua dúvida?