PhysicalSizeToPixels

function PhysicalSizeToPixels(

  AUnit: TUnitOfMeasure;

  ASize: Single;

  AResolutionUnit: TResolutionUnit = ruPixelsPerInch;

  AResolution: Single = 96

):Single; overload;

function PhysicalSizeToPixels(

  AUnit: TUnitOfMeasure;

  ARect: TRectF;

  AResolutionUnit: TResolutionUnit = ruPixelsPerInch;

  AResolutionX: Single = 96;

  AResolutionY: Single = 96

):TRectF; overload;

function PhysicalSizeToPixels(

  AUnit: TUnitOfMeasure;

  ARect: TRect;

  PreserveMoreData: Boolean = False;

  AResolutionUnit: TResolutionUnit = ruPixelsPerInch;

  AResolutionX: Single = 96;

  AResolutionY: Single = 96

):TRect; overload;