[noob]

Esto es mi unidad uFicheroNoExiste.

Código Delphi [-]
unit uFicheroNoExiste;
 
interface
 
uses
  SysUtils;
 
type
  eFicheroNoExiste = class (Exception)
                         public
                           constructor Create;
                         end;
implementation
 
constructor eFicheroNoExiste.Create;
begin
  inherited Create('El fichero no existe');
end;
 
end.