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