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