var
  i: integer;
  iPhysicalWidthINCH: double;
  iPhysicalHeightINCH: double;
  iPhysicalWidthMM: double;
  iPhysicalHeightMM: double;
  iPhysicalWidthPixels: integer;
  iPhysicalHeightPixels: integer;
  iString: string;
begin
  iPhysicalWidthINCH := ImageEnView1.IO.AcquireParams.PhysicalWidth;
  PhysicalWidthINCH1.Caption := 'Physical Width (Inch): ' +
    FormatFloat('##.##', iPhysicalWidthINCH);

  iPhysicalHeightINCH :=
      ImageEnView1.IO.AcquireParams.PhysicalHeight;
  PhysicalHeightINCH1.Caption := 'Physical Height (Inch): ' +
    FormatFloat('##.##', iPhysicalHeightINCH);

  iPhysicalWidthMM := ImageEnView1.IO.AcquireParams.PhysicalWidth * 25.4;
  PhysicalWidthMM1.Caption := 'Physical Width (mm): ' + FormatFloat
    ('####', (iPhysicalWidthMM));

  iPhysicalHeightMM := ImageEnView1.IO.AcquireParams.PhysicalHeight * 25.4;
  PhysicalHeightMM1.Caption := 'Physical Height (mm): ' + FormatFloat('####', iPhysicalHeightMM);

  iPhysicalWidthPixels := ImageEnView1.IO.AcquireParams.PhysicalWidthPixels;
  { Add commas to string }
  iString := IntToStr(iPhysicalWidthPixels);
  i := Length(iString) - 2;
  while i > 1 do
  begin
    Insert(SysUtils.ThousandSeparator, iString, i);
    i := i - 3;
  end;

  PhysicalWidthPixels1.Caption := 'Physical Width (pixels): ' + iString;
  { Add commas to string }
  iPhysicalHeightPixels := ImageEnView1.IO.AcquireParams.PhysicalHeightPixels;
  iString := IntToStr(iPhysicalHeightPixels);
  i := Length(iString) - 2;
  while i > 1 do
  begin
    Insert(SysUtils.ThousandSeparator, iString, i);
    i := i - 3;
  end;
  PhysicalHeightPixels1.Caption := 'Physical Height (pixels): ' + iString;
end;