Source position: tcl80.pp line 866
function Tcl_GetCommandInfo(
interp: PTcl_Interp;
cmdName: PChar;
var info: Tcl_CmdInfo
):Integer;