Source position: tcl80.pp line 890
function Tcl_RecordAndEval(
interp: PTcl_Interp;
cmd: PChar;
flags: Integer
):Integer;