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