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