procedure-delete.tcl