TdxPrintDeviceProblemEvent = procedure(Sender: TObject; var ADone: Boolean) of object;