Непонятное сохранение значений компонентов формы в файл - Delphi - Ответ 6854152

procedure SavFile (const FileName: TFileName);
  var i,j:Byte;
begin
 
  FIni :=TIniFile.Create(FileName);
 
  FIni.WriteString('Version', 'Версия', Form_Main.Version.Caption);
  FIni.WriteString('Section', 'Секций', Form_Main.ComboBox_N_section.Text);
 
   for i := 0 to application.ComponentCount-1 do
   if Application.Components[i] is TForm then begin
   Fini.EraseSection((Application.Components[i] as TForm).Name);
   IF (Application.Components[i] as TForm).Name <> ('Form_section') then
      IF (Application.Components[i] as TForm).Name <> ('Form_calc') then begin
     for j:=0 to  Application.Components[i].ComponentCount-1 do begin
          //TEdit
       if Application.Components[i].Components[j] is TEdit then
          FIni.WriteString((Application.Components[i] as TForm).Name,
          (Application.Components[i].Components[j] as TEdit).Name+'.Text',
          (Application.Components[i].Components[j] as TEdit).Text);
           //TComboBox
        if Application.Components[i].Components[j] is TComboBox then
          FIni.WriteString((Application.Components[i] as TForm).Name,
          (Application.Components[i].Components[j] as TComboBox).Name+'.Text',
          (Application.Components[i].Components[j] as TComboBox).Text);
           //TCheckBox
        if Application.Components[i].Components[j] is TCheckBox then
          FIni.WriteBool((Application.Components[i] as TForm).Name,
          (Application.Components[i].Components[j] as TCheckBox).Name+'.Checked',
          (Application.Components[i].Components[j] as TCheckBox).Checked);
         //TRadioGroup
         if Application.Components[i].Components[j] is TRadioGroup then
          FIni.WriteInteger((Application.Components[i] as TForm).Name,
          (Application.Components[i].Components[j] as TRadioGroup).Name+'.ItemIndex',
          (Application.Components[i].Components[j] as TRadioGroup).ItemIndex);
        end;
      end;
   end;
  FIni.Free;
end;