Creas una excepción y en la excepción colocas tu mensaje. OJO, esto de la excepciones funciona solo en runtime, es decir, ejecutas directamente el .exe o no con el compiler.
Código Delphi
[-]
Try
Dataset1.Close;
Except
Showmessage('Error de capa 8');
End;