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