Source position: tcl80.pp line 786
function Tcl_DeleteCommand(
interp: PTcl_Interp;
name: PChar
):Integer;