Source position: tcl80.pp line 781
function Tcl_Eval(
interp: PTcl_Interp;
script: PAnsiChar
):Integer;