DetectPaperSize

procedure DetectPaperSize(

  aPaperWidth: Double;

  aPaperHeight: Double;

  aOrientationLandscape: Boolean;

  aForceEmulation: Boolean;

  var aResultPaperSize: TRLSystemPaperType;

  var aResultPaperWidth: Double;

  var aResultPaperHeight: Double;

  var aResultOrientation: TRLSystemOrientation

);