CEDURE</b></span> checklockcount;
        $endif}
        <span style="color:navy"><b>CONSTRUCTOR</b></span> create (aowner: tcomponent); <span style="color:teal"><b>OVERRIDE</b></span>;
        <span style="color:navy"><b>DESTRUCTOR</b></span> destroy; <span style="color:teal"><b>OVERRIDE</b></span>;
        
        <span style="color:navy"><b>PROCEDURE</b></span> beforedestruction () <span style="color:teal"><b>OVERRIDE</b></span>;
        <span style="color:navy"><b>PROCEDURE</b></span> initialize;
    