1 2 3 4 5 6
CLASS Secret PRIVATE PROCEDURE DELETE() ENDPROCEDURE ENDCLASS DECLARE Obj : Secret DELETE Obj