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