Source position: tcl80.pp line 869
function Tcl_SetCommandInfo(
interp: PTcl_Interp;
cmdName: PAnsiChar;
var info: Tcl_CmdInfo
):Integer;