PhysicalSizeConvert

function PhysicalSizeConvert(

  ASourceUnit: TUnitOfMeasure;

  ASourceSize: Single;

  ATargetUnit: TUnitOfMeasure;

  AResolutionUnit: TResolutionUnit = ruPixelsPerInch;

  AResolution: Single = 96

):Single; overload;

function PhysicalSizeConvert(

  ASourceUnit: TUnitOfMeasure;

  ASourceRect: TRectF;

  ATargetUnit: TUnitOfMeasure;

  AResolutionUnit: TResolutionUnit = ruPixelsPerInch;

  AResolution: Single = 96

):TRectF; overload;