Source position: tcl80.pp line 669
type TTclDriverInputProc = function(
instanceData: Tcl_ClientData;
buf: PChar;
toRead: Integer;
errorCodePtr: PInteger
):Integer;