Source position: tcl80.pp line 846
function Tcl_GetAssocData(
interp: PTcl_Interp;
key: PAnsiChar;
var proc: TTclInterpDeleteProc
):Tcl_ClientData;