Source position: tcl80.pp line 675
type TTclDriverSeekProc = function(
instanceData: Tcl_ClientData;
offset: LongInt;
mode: Integer;
errorCodePtr: PInteger
):Integer;