在RunTime时，当改变了表单的某个属性，如何保存下来？

Question

写配置文件；下面是把eidt spinedit 存盘 读出
procedure TfrmTb08Test.LoadForm;
var
  pIni: TiniFile;
  i, j, iCount, iSubCount: integer;
  sTmp: string;
  iTmp: integer;
begin
  iCount := self.ControlCount;
  pIni := Tinifile.Create(AppPath + 'FormText.ini');
  for i := 0 to iCount - 1 do
  begin
    if self.Controls[i] is Tedit then
    begin
      sTmp := pIni.ReadString('TEdit', Controls[i].Name, '');
      Tedit(Controls[i]).Text := sTmp;
      continue;
    end;
    if self.Controls[i] is TSpinEdit then
    begin
      iTmp := pIni.ReadInteger('TSpinEdit', Controls[i].Name, 0);
      TSpinEdit(Controls[i]).Value := iTmp;
      continue;
    end;
    if Controls[i] is TGroupBox then
    begin
      iSubCount := TGroupBox(Controls[i]).ControlCount;
      for j := 0 to iSubCount - 1 do
      begin
        if TGroupBox(Controls[i]).Controls[j] is Tedit then
        begin
          sTmp := pIni.ReadString('TEdit', TGroupBox(Controls[i]).Controls[j].Name, '');
          Tedit(TGroupBox(Controls[i]).Controls[j]).Text := sTmp;
          continue;
        end;
        if TGroupBox(Controls[i]).Controls[j] is TSpinEdit then
        begin
          iTmp := pIni.ReadInteger('TSpinEdit', TGroupBox(Controls[i]).Controls[j].Name, 0);
          TSpinEdit(TGroupBox(Controls[i]).Controls[j]).Value := iTmp;
          continue;
        end;
      end;
    end;
  end;
  edtMainCall.Text:='';
end;
//把 Tedit Tspinedit 内容存盘procedure TfrmTb08Test.SaveForm;
var
  pIni: TiniFile;
  i, j, iCount, iSubCount: integer;
begin
  iCount := self.ControlCount;
  pIni := Tinifile.Create(AppPath + 'FormText.ini');
  for i := 0 to iCount - 1 do
  begin
    if self.Controls[i] is Tedit then
    begin
      pIni.WriteString('TEdit', Controls[i].Name, Tedit(Controls[i]).Text);
      continue;
    end;
    if self.Controls[i] is TSpinEdit then
    begin
      pIni.WriteInteger('TSpinEdit', Controls[i].Name, TSpinEdit(Controls[i]).Value);
      continue;
    end;
    if Controls[i] is TGroupBox then
    begin
      iSubCount := TGroupBox(Controls[i]).ControlCount;
      for j := 0 to iSubCount - 1 do
      begin
        if TGroupBox(Controls[i]).Controls[j] is Tedit then
        begin
          pIni.WriteString('TEdit', TGroupBox(Controls[i]).Controls[j].Name, Tedit(TGroupBox(Controls[i]).Controls[j]).Text);
          continue;
        end;
        if TGroupBox(Controls[i]).Controls[j] is TSpinEdit then
        begin
          pIni.WriteInteger('TSpinEdit', TGroupBox(Controls[i]).Controls[j].Name, TSpinEdit(TGroupBox(Controls[i]).Controls[j]).Value);
          continue;
        end;
      end;
    end;
  end;
end;