Components for Delphi and C++ Builder.

object Form9: TForm9
  Left = 0
  Top = 0
  Caption = 'Form9'
  ClientHeight = 188
  ClientWidth = 235
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PropStorageEh1: TPropStorageEh
    Section = 'test'
    StorageManager = IniPropStorageManEh1
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width')
    Left = 48
    Top = 32
  end
  object IniPropStorageManEh1: TIniPropStorageManEh
    IniFileName = 'test_settings.ini'
    Left = 48
    Top = 88
  end
end

procedure TFormStoragePropertyInterceptor.Readed;
var
  Placement: TWindowPlacement;
{$IFDEF EH_LIB_20}
var
  StoredWindowHandle: HWnd;
{$ENDIF}
begin
  inherited Readed;
  // для версий дельфи больше Siettle пересчитывать ненадо
  FHeight := MulDiv(FHeight, Screen.PixelsPerInch, FPixelsPerInch);
  FLeft := MulDiv(FLeft, Screen.PixelsPerInch, FPixelsPerInch);
  FTop := MulDiv(FTop, Screen.PixelsPerInch, FPixelsPerInch);
  FWidth := MulDiv(FWidth, Screen.PixelsPerInch, FPixelsPerInch);