Source position: tcl80.pp line 792
function Tcl_LinkVar(
interp: PTcl_Interp;
varName: PAnsiChar;
var addr;
typ: Integer
):Integer;