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