CLASS Secret
PRIVATE PROCEDURE DELETE()
ENDPROCEDURE
ENDCLASS
DECLARE Obj : Secret
DELETE Obj