Тип события, возникающего в начале записи изображения
TBeforeSaveImageEvent = procedure(Sender: TObject; lCode: integer;
oIndex: integer; aImageName, aImageFileName: string;
var flAction: Boolean) of object;
Sender
aImageName
aImageFileName
flAction