This is type TWriteProc.
TWriteProc = function (Handle: TImagingHandle; Buffer: Pointer; Count: LongInt): LongInt;
ImagingTypes (at line 446)