Repetir varios controles en tiempo de ejecución

[delphi.com.ar]

Ups.. Error de sintaxis!!, eso me pasa por escribir directamente en el foro

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