[[enecumene]]

Código Delphi [-]
procedure TForm.Button1click(sender: TObject);
begin
    try
      //las sentencias normales que tienes
    Except
       Showmessage('mensaje');
       Exit; //para detener el proceso
    end;
end;

Saludos