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