PixelsToPhysicalSize

function PixelsToPhysicalSize(

  ASizeInPixels: Single;

  ATargetUnit: TUnitOfMeasure = uomInches;

  AResolutionUnit: TResolutionUnit = ruPixelsPerInch;

  AResolution: Single = 96

):Single; overload;

function PixelsToPhysicalSize(

  ARect: TRectF;

  ATargetUnit: TUnitOfMeasure = uomInches;

  AResolutionUnit: TResolutionUnit = ruPixelsPerInch;

  AResolutionX: Single = 96;

  AResolutionY: Single = 96

):TRectF; overload;