var
  TabSheet: array[1..5] of TTabSheet;
  i: integer;
begin
  for i := 1 to 5 do
  begin
    TabSheet[i] := TTabSheet.Create(Self);
    TabSheet[i].PageControl := PageControl;
  end;
end;