Source position: tcl80.pp line 782
function Tcl_EvalFile(
interp: PTcl_Interp;
filename: PAnsiChar
):Integer;