unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure CreateComp(AOwner: TForm);
var
  ed: TEdit;
  lb: TLabel;
begin
  lb := TLabel.Create(AOwner);
  lb.Left := 8;
  lb.Top := 11;
  lb.Caption := 'Label1';
  lb.Parent := AOwner;
  lb := TLabel.Create(AOwner);
  lb.Left := 8;
  lb.Top := 33;
  lb.Caption := 'Label2';
  lb.Parent := AOwner;
  ed := TEdit.Create(AOwner);
  ed.Left := 45;
  ed.Top := 8;
  ed.Parent := AOwner;
  ed := TEdit.Create(AOwner);
  ed.Left := 45;
  ed.Top := 30;
  ed.Parent := AOwner;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  fm: TForm;
begin
  Caption := 'Form1';
  CreateComp(Self);

  fm := TForm.Create(Self);
  fm.Caption := 'Form2';
  CreateComp(fm);
  fm.Show;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure CreateComp(AOwner: TForm; Scale: Boolean);
var
  N: Double;
  procedure CreateLb(ALeft, ATop: Integer; ACapt: string);
  var
    lb: TLabel;
  begin
    lb := TLabel.Create(AOwner);
    lb.Left := Round(ALeft * N);
    lb.Top := Round(ATop * N);
    lb.Caption := ACapt;
    lb.Parent := AOwner;
  end;
  procedure CreateEd(ALeft, ATop, AWidth: Integer; AText: string);
  var
    ed: TEdit;
  begin
    ed := TEdit.Create(AOwner);
    ed.Left := Round(ALeft * N);
    ed.Top := Round(ATop * N);
    ed.Width := Round(AWidth * N);
    ed.Text := AText;
    ed.Parent := AOwner;
  end;
begin
  if Scale then
    N := Screen.PixelsPerInch / 96
  else
    N := 1;
  CreateLb(8, 11, 'Label1');
  CreateLb(8, 33, 'Label2');
  CreateEd(45, 8, 100, 'Edit1');
  CreateEd(45, 30, 100, 'Edit2');
end;

procedure TForm1.FormShow(Sender: TObject);
var
  fm: TForm;
begin
  Caption := 'Form1';
  CreateComp(Self, False);

  fm := TForm.Create(Self);
//  fm.Scaled := False; не работает
  fm.Caption := 'Form2';
  CreateComp(fm, True);
//  fm.ScaleForPPI(Screen.PixelsPerInch);
  fm.Show;
end;

end.