Чтобы алгоритм моментально дествовал мы помещаем его в событие необходимой фомы - ПО СОЗДАНИЮ ЕЁ.

procedure TForm1.FormCreate(Sender: TObject);

begin

  // положение формы по-центру

  Position  := poDesktopCenter;

  // массштабирование

  Scaled    := False;

  // установим высоту в 35% от высоты экрана

  Height    := trunc(Screen.Height * 0.35);

  // установим ширину в 35% от ширины экрана

  Width     := trunc(Screen.Width * 0.35);

  //...

end;