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