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