我用pagecontrol动态增加、删除tabsheet页，但怎么在程序退出时保存当前情况，下次进入时和退出时一样？？

Question

用INI文件记录起来，
uses Inifiles;var
  TabSheets: array of TTabSheet;procedure TMainForm.Create(.....);
var
  i, iPageCount: integer;
  s: string;
begin
  .....
  ....
  ....
  with Inifile do
  begin
    iPageCount := ReadInteger('PageControl', 'PageCount', 0);
    SetLength(TabSheets, iPageCount);
    for i := 0 to iPageCount - 1 do
    begin
      TabSheets[i] := TTabSheet.Create(PageControl);
      //TabSheets[i].Parent := PageControl;
      TabSheets[i].PageControl := PageControl;
      TabSheets[i].Caption := ReadString('PageControl', IntToStr(i), '');
    end;
  end;
end;procedure TMainForm.CloseQuery(.....);
var
  i: integer;
begin
  with inifile do
  begin
    //记录页面数
    WriteInteger("PageControl', 'PageCount', PageControl.PageCount);
    for i := 0 to PageControl.PageCount - 1 do
      //记录页的标题
      WriteString('PageControl', IntToStr(i), PageControl.Pages[i].Caption);
  end;
end;