Source position: jvdblookup.pas line 55
type TGetImageEvent = procedure(
Sender: TObject;
IsEmpty: Boolean;
var Graphic: TGraphic;
var TextMargin: Integer
) of object;