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