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