pan style="color:navy"><b>PROCEDURE</b></span> showexception (e: exception; const leadingtext: msestring = '');
                                       <span style="color:teal"><b>VIRTUAL</b></span>; <span style="color:teal"><b>ABSTRACT</b></span>;
        <span style="color:navy"><b>PROCEDURE</b></span> errormessage (const amessage: msestring); <span style="color:teal"><b>VIRTUAL</b></span>; <span style="color:teal"><b>ABSTRACT</b></span>;
        <span style="color:navy"><b>PROCEDURE</b></span> registeront