B4J Question AS Settings: How to clear / delete existing properties successfully to re-use the component?

Sub ShowPage
    B4XPages.SetTitle(Me,"Page Settings")

    'clear all existing properties if they exist?
    AS_Settings1.ResetGroups
    AS_Settings1.AddGroup("Page","Page Settings")
    'Boolean
    AS_Settings1.AddProperty_Boolean("Page","PropertyName_1","Boolean Property True","Description Test Text",Null,True)
    AS_Settings1.AddProperty_Boolean("Page","PropertyName_2","Boolean Property False","Description Long Long Long Long Long Long Long Long Long Long Long Long Long Long Test Text",Null,False)
    AS_Settings1.AddProperty_Boolean("Page","PropertyName_3","Boolean Property True with a long text","",Null,True)
    'Action Button
    AS_Settings1.AddProperty_Action("Page","PropertyName_4","Action Property","",Null,"English")
    AS_Settings1.AddProperty_Action("Page","PropertyName_5","Icon","",AS_Settings1.FontToBitmap(Chr(0xF179),False,30,xui.Color_White),"English, German, Italian, Spanish, Swedish")
    AS_Settings1.AddProperty_ActionClean("Page","PropertyName_6","Delete Account","",AS_Settings1.FontToBitmap(Chr(0xE92B),True,34,xui.Color_White))
    AS_Settings1.AddProperty_Action("Page","PropertyName_7","Pro Feature","",Null,"Pro")
    
    AS_Settings1.BottomText = "Anele Mbanga" & CRLF & "V1.0.2"
    
    AS_Settings1.Create
End Sub

Sub ShowComponent
    B4XPages.SetTitle(Me,"Component Settings")
    'AS_Properties.DeleteAllProperties
    'clear all existing properties if they exist?
    AS_Settings1.ResetGroups
    
    AS_Settings1.AddGroup("Advanced","Component Settings")
    
    'Numeric Example
    AS_Settings1.AddProperty_Text("Advanced","PropertyName_8","Text Example","",Null,"Test",100dip,AS_Settings1.InputType_Text)
    AS_Settings1.AddProperty_Text("Advanced","PropertyName_9","Numeric Example","",Null,24,60dip,AS_Settings1.InputType_Numeric)
    AS_Settings1.AddProperty_Text("Advanced","PropertyName_10","Decimal Example","",Null,24.24,100dip,AS_Settings1.InputType_Decimal)
    'AS_Settings1.AddProperty_Text("Advanced","PropertyName_12","Decimal Example",Null,24.24,100dip,AS_Settings1.InputType_IPv4,"")
    'ComboBox
    AS_Settings1.AddProperty_ComboBox("Advanced","PropertyName_11","ComboBox Example","",Null,1,Array("Option 1","Option 2","Option 3","Option 4"))
    
    AS_Settings1.BottomText = "Sithaso Holdings" & CRLF & "V1.0.2"
    
    AS_Settings1.Create
End Sub