Программно задать порядок для компонентов с Align = alTop

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Top :=     0;
  Panel2.Top := 40000;
  Panel3.Top := 40050;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(Panel2.Top) + ' ' + IntToStr(Panel3.Top);
end;

const FrameN = 150; // Можно и в переменные перенести
 
type
  TfmConstructor = class(TForm)
...
  public
    QF: array of TQuestion_Editor_Frame;
...
  end;
 
...
 
function TfmConstructor.CreateQuestion(AQuestion: string = ''; P: Integer = 0): TQuestion_Editor_Frame;
begin
  f := TQuestion_Editor_Frame.Create(ScrollBox);
  Inc(ID_Q);
  f.Name := 'Q_' + IntToStr(ID_Q);
  f.Parent := ScrollBox;
  f.AutoSize := true;
//  f.Visible := true;
  f.edQuestion.Text := AQuestion;
//  f.pQuestion.Top := 0;
//  f.Top := 1000000;
//  f.Top := P * (f.Height + 8);
//  f.Top := P * (350);
//  f.Align := alTop;
  Result := f;
end;
 
procedure TfmConstructor.CresteFrames;
var Q: TQuestion_Editor_Frame;
    i, j, Num: integer;
begin
  ScrollBox.Visible:= false;
  ScrollBox.AutoScroll:= false;
  ScrollBar1.Min := 0;
  ScrollBar1.Max := FrameN-1;
  SetLength(QF, FrameN);
  for i := 0 to FrameN-1 do begin
    QF[i] := CreateQuestion('Iteration ' + IntToStr(i), i);
    for j:= 0 to 3 do QF[i].CreateAnswer('');
    QF[i].Visible := i = 0; // Сначала видимый только первый фрейм
  end;
 
  ScrollBox.AutoScroll := true;
  ScrollBox.Visible := true;
end;
 
...
 
procedure TfmConstructor.ScrollBar1Change(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to FrameN-1 do
    QF[i].Visible := ScrollBar1.Position = i; // Делаем видимум тот фрейм, на который указывает ScrollBar
end;

const FrameN = 550;
 
type
  TfmConstructor = class(TForm)
    Panel2: TPanel;
    Panel4: TPanel;
    Button1: TButton;
    ScrollBar1: TScrollBar;
    Panel1: TPanel;
    Timer1: TTimer;
 
    procedure Button1Click(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
  private
    { Private declarations }
  public
    QF: array of TQuestion_Editor_Frame;
    MaxH: Integer;
    function CreateQuestion(AQuestion: string = ''): TQuestion_Editor_Frame;
    procedure CresteFrames;
    procedure SetScrollBarRange;
  end;
 
var
  fmConstructor: TfmConstructor;
  f: TQuestion_Editor_Frame;
  ID_Q: integer = 0;
 
implementation
 
{$R *.dfm}
 
uses Answer_uFrame;
 
{ TfmConstructor }
 
function TfmConstructor.CreateQuestion(AQuestion: string = ''): TQuestion_Editor_Frame;
begin
  f := TQuestion_Editor_Frame.Create(Panel1);
  Inc(ID_Q);
  f.Name := 'Q_' + IntToStr(ID_Q);
  f.Parent := Panel1;
//  f.AutoSize := true;
//  f.Visible := true;
  f.edQuestion.Text := AQuestion;
//  f.pQuestion.Top := 0;
//  f.Top := 1000000;
//  f.Top := P * (f.Height + 8);
//  f.Top := P * (350);
//  f.Align := alTop;
  Result := f;
end;
 
procedure TfmConstructor.CresteFrames;
var
  i, j, Num: integer;
begin
  Panel1.Visible := false;
  SetLength(QF, FrameN);
  MaxH := 0;
  for i := 0 to FrameN-1 do begin
    QF[i] := CreateQuestion('Iteration ' + IntToStr(i));
    QF[i].Left := -QF[i].Width; // Спрятать фрейм за экраном. Visible = false нельзя, так как, тогда высота фрейма будет неправильно пересчитана
    QF[i].AutoSize := true; // Сначала AutoSize,
    for j:= 0 to 3 do QF[i].CreateAnswer(''); // затем добавить другие компоненты
  end;
 
//  SetScrollBarRange;
  Panel1.Visible := true;
  Timer1.Enabled := true; // Общая высота сразу не доступна. Нужно пересчитать позже
end;
 
 
 
 
procedure TfmConstructor.Button1Click(Sender: TObject);
begin
  CresteFrames;
end;
 
procedure TfmConstructor.ScrollBar1Change(Sender: TObject);
var
  i, h, wh, p: Integer;
begin
  // Так как, фреймы могут быть разной высоты, то приходится просматривать все фреймы
  h := 0; // Верхняя координата просматриваемого фрейма
  wh := Panel1.Height; // Высота окна просмотра
  p := ScrollBar1.Position; // Текущая позиция просмотра
  for i := 0 to High(QF) do begin
    QF[i].Visible := (p+wh >= h) and (p <= h + QF[i].Height); // Если фрейм входит в окно, то показать его
    if QF[i].Visible then // Если фрейм видимый, то установить его верхнюю координату
      QF[i].Top := h - p;
    h := h + QF[i].Height;
  end;
end;
 
procedure TfmConstructor.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  Timer1.Enabled := false;
 
  // Пересчёт общей высоты всех фреймов
  if Length(QF) <= 0 then
    Exit;
  MaxH := 0;
  for i := 0 to High(QF) do begin
    if MaxH < 2000 then // Выстроить фреймы до высоты 2000 пикселей
      QF[i].Top := MaxH;
    MaxH := MaxH + QF[i].Height;
    QF[i].Visible := (MaxH < 2000); // Пусть будет видно фреймов на высоту 2000 пикселей
    QF[i].Left := 0;
  end;
 
  // Установка максимального значения ScrollBar
  SetScrollBarRange;
end;
 
procedure TfmConstructor.Panel1Resize(Sender: TObject);
begin
  // Изменилась высота окна просмотра
  // Установка максимального значения ScrollBar
  SetScrollBarRange;
end;
 
procedure TfmConstructor.SetScrollBarRange;
begin
  ScrollBar1.Min := 0;
  if MaxH - Panel1.Height > ScrollBar1.Min then
    ScrollBar1.Max := MaxH - Panel1.Height;
end;