Source position: tcl80.pp line 858
function Tcl_ExposeCommand(
interp: PTcl_Interp;
hiddenCmdName: PChar;
cmdName: PChar
):Integer;