[timeless]

Способ немного попроще:

Код:

var
  num: integer =1;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTabSheet.Create(Self) do begin
    PageControl:=PageControl1;
    Caption:=InputBox('Моя программа', 'Имя вкладки', 'Новая вкладка '+IntToStr(num));
    Name:='TabSheet'+inttostr(num+9000);
  end;
  num:=num+1;
end;

Какие данные нужно сохранить? Заголовки вкладок?