Source position: tcl80.pp line 900
function Tcl_CreateChannel(
typePtr: PTcl_ChannelType;
chanName: PChar;
instanceData: Tcl_ClientData;
mask: Integer
):PTcl_Channel;