Source position: tcl80.pp line 667
type TTclDriverBlockModeProc = function(
instanceData: Tcl_ClientData;
mode: Integer
):Integer;