Source position: tcl80.pp line 771
type TTclCreateCloseHandler = procedure(
channel: PTcl_Channel;
proc: TTclClientDataProc;
clientData: Tcl_ClientData
);