Source position: tcl80.pp line 673
type TTclDriverOutputProc = function(
instanceData: Tcl_ClientData;
buf: PAnsiChar;
toWrite: Integer;
errorCodePtr: PInteger
):Integer;