This is type TTellProc.
TTellProc = function (Handle: TImagingHandle): LongInt;
ImagingTypes (at line 444)