Source position: dbctrls.pp line 1170
type TOnDBImageWrite = procedure(
Sender: TObject;
S: TStream;
GraphExt: string
) of object;