This is type TSeekProc.

TSeekProc = function (Handle: TImagingHandle; Offset: LongInt; Mode: TSeekMode): LongInt;

ImagingTypes (at line 443)