[Kailon]

Сохранять можно так

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
 Ini: TIniFile;
 i: SmallInt;
begin
 Ini := TIniFile.Create('c:\MyIni.ini');
 Ini.WriteInteger('Pages','Count',PageControl1.PageCount - 1);
 for i := 0 to PageControl1.PageCount - 1 do
  Ini.WriteString('Pages','Page' + IntToStr(i),PageControl1.Pages[i].Caption);
end;

загружать так

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 TS: TTabSheet;
 Ini: TIniFile;
 i: SmallInt;
 cnt: Byte;
begin
 Ini := TIniFile.Create('c:\MyIni.ini');
 cnt := Ini.ReadInteger('Pages','Count',0);
 for i := 0 to cnt do
  begin
   TS := TTabSheet.Create(Self);
   TS.PageControl := PageControl1;
   TS.Caption := Ini.ReadString('Pages','Page' + IntToStr(i),'');
  end;
end;