Source position: tcl80.pp line 645
type TTclVarTraceProc = function(
clientData: Tcl_ClientData;
interp: PTcl_Interp;
varName: PAnsiChar;
elemName: PAnsiChar;
flags: Integer
):PAnsiChar;