TIdLPRStatusEvent = procedure (ASender: TObject; const AStatus: TIdLPRStatus; const AStatusText: String) of object;