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