Сохранение динамически созданных компонентов в ini

[Pypkin30159]

Помогите написать сохранение и загрузку динамически созданных закладок в PageControl, компонентов и их свойств. Прочитал довольно много статей ни к чему не привело. Время уже поджимает, буду привелико благодарен.
Вот что у меня создается динамически.

Var
 Name:Word;
  IDTab:integer;
  tn:TTabSheet;
  Dbg:TDBGrid;
  Dbn:TDBNavigator; 
  DS:TDataSource;
  CDS:TClientDataSet;

procedure TForm1.N3Click(Sender: TObject);
 begin
  NameTab:='';
  form2.showmodal;
   if length(trim(NameTab))>0 then begin
      tn:=TTabSheet.Create(PageControl1);
      tn.Name:='MyTab'+inttostr(IDTab);
      tn.Caption:=NameTab;
      IDTab:=IDTab+1;
      tn.PageControl:=PageControl1;
      CDS:=TClientDataSet.Create(PageControl1);
      DS:=TDataSource.Create(PageControl1);
      DS.DataSet:=CDS;
      Dbg:=TDBGrid.Create(PageControl1);
      Dbg.Parent:=tn;
      Dbg.Align:=alClient;
      Dbg.DataSource:=DS;
      Dbn:=TDBNavigator.Create(PageControl1);
      Dbn.Parent:=tn;
      Dbn.Align:=alBottom;
      Dbn.DataSource:=DS;
      CopyFileEx(PChar('Sistem.cds'),PChar('1.cds'),nil,nil,nil,COPY_FILE_FAIL_IF_EXISTS);
      RenameFile('1.cds',NameTab+'.cds' );
      CDS.FileName:=NameTab+'.cds';
      CDS.Active:=True;
    end;
 end;

[ex.cluz]

Почему обязательно в ини? Можно и свой формат "замутить".

А вообще все это сделать можно, но код будет лишен "красивости".
Достаточно обойти все контролы на вкладках в цикле и сделать ветвление в зависимости от компонента, чьи свойства сохраняются. В каждой ветке этого ветвления написать сохранение нужных свойств компонентов (положение, цвет, заголовок и т.д.). Т.е у каждого типа контрола свой набор сохраняемых свойств.

Вот, вобщем-то, нужная последовательность.

[Pypkin30159]

Мне требуется сохранять только в ini ибо это задание, помогите написать сохранение и загрузку. Я прочитал много статей и смог добиться только сохранения закладок вот код:
Сохранение

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 Ini := TIniFile.Create(extractfilepath(Application.ExeName)+'Ini.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);
begin
 Ini := TIniFile.Create(extractfilepath(Application.ExeName)+'Ini.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;

Но дальше я не могу понять как сохранять компоненты и загружать. Помогите пожалуйста.