Динамичное создание tabsheet

Здравствуйте. Как можно динамично создавать страницы(tabsheet) не зная заранее сколько их будет?
если бы заранее было известно сколько нужно создавать страниц делал бы так:

Code:

var
TabSheet : TTabSheet;
TabSheet := TTabSheet.Create(Self);
TabSheet.PageControl := PageControl; 

но вот как создавать допустим если нужно сделать 5 страниц? Не могу же Я просто продублировать этот текст 5 раз с разными названиями переменных. Помогите пожалуйста

 

for .. to .. do

там ты просто будешь по-новой создавать объект.

 

Код для создания 5-и TabSheets:

Code:

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;

 

Решил делать таким способом

Code:

var
TabSheet : TTabSheet;
i, TabIndex: integer;
begin
 TabIndex := 0;
 for i:=0 to 1000 begin
  TabSheet := nil;
  TabSheet := TTabSheet.Create(Self);
  TabSheet.Name := 'TabSheet' + IntToStr(TabIndex); // TabIndex - счётчик табов
  TabSheet.Caption := 'TabSheet' + IntToStr(TabIndex);
  TabSheet.PageControl := PageControl; 
  Inc(TabIndex);
 end;
end;