Source position: tcl80.pp line 680
type TTclDriverGetHandleProc = function(
instanceData: Tcl_ClientData;
direction: Integer;
var handlePtr: Tcl_ClientData
):Integer;