Repetir varios controles en tiempo de ejecución

[delphi.com.ar]

En tu caso, que las creas dinámicamente:

for i := 0 to PageControl1.PageCount-1 do
  with TFrame1.Create(Self);
  begin
    Parent := PageControl1.Pages[i];
    Aling := alClient;
  end;

Saludos!