function Scale96ToScreen(ASize: Integer): Integer

Масштабирует значение размера от 96 PPI до значения PPI экрана. Используйте эту функцию, если хотите, чтобы элементы интерфейса выглядели одинаково хорошо на мониторах с разной плотностью пикселей (2К, 4К).

Например, вы создаете расширение, в котором пользователь задает ширину окна. Тогда при создании окна, передайте функции значение ширины.

{@
. . .
@}
function OpenListWindow(const AFormName: String; AWidth: Integer): Boolean;
begin
  Result := True;
  with TListWindow.Create(AFormName, vtGridOnly) do
  begin
    Width := Scale96ToScreen(AWidth);
    . . .
  end;
end;

Например, пользователь задал ширину 1000 пикселей. На простом мониторе с PPI = 96, ширина так и будет - 1000. На мониторе с PPI = 144, ширина будет - 1500.