Here's the version of the code that allows to pass table name, key filed name and tag name as parameters (not tested).

PARAMETERS tcTable, tcKeyField, tcTag
Select (tcTable)
Set Order To (tcTag)
lKeyfiled = Null
SCAN
    IF lKeyfield = Evaluate(tcKeyField)
        Delete
    ELSE
        lKeyfield = Evaluate(tcKeyField)
    ENDIF
ENDSCAN