Source position: tcl80.pp line 808
procedure Tcl_SetResult(
interp: PTcl_Interp;
newValue: PAnsiChar;
freeProc: TTclFreeProc
);