====== Delphi ======
===== Tipo de Exceção =====
As exceções são objetos da classe Exception, então, para criar um novo tipo de exceção, basta criar uma classe descendente da classe Exception.
<code delphi>
Type
  EDataInvalida = class(Exception);
</code>
===== Forçando Exceção =====
<code delphi> 
raise EDataInvalida.Create('Data Inválida');
</code>
===== Tratando Exceção =====
<code delphi>
on e: EDataInvalida do
begin
  //Este exemplo é utilizado no Try / Exception / Finally
end;
</code>

<code delphi>
if (e is EDataInvalida) then
  //este exemplo é utilizado junto com o componente ApplicationEvents no evento OnException
</code>