在单元里面无法正确引用窗体里面的值

1.带标记的窗体的源码

procedure TfrmBusinessSet.loadConfig;

  s := ChangeFileExt('businessset', '.ini');
  if not fileExists(s) then
  begin
    ShowMessage('未找到配置文件'+ s);
    Application.Terminate;
    exit;
  end;

  ini := TIniFile.Create(s);
  cmb124PrcSts.Items.Add('PR02:已付款');
  cmb124PrcSts.Items.Add('PR09:已拒绝');
  rg124return.ItemIndex := ini.ReadInteger('business','124return',0);
  cmb124PrcSts.ItemIndex := ini.ReadInteger('business','124PrcSts',0);

2.自动回执单元引用

  end else if (MessType = '123') and (FBusSet.rg124return.ItemIndex = 1) then
  begin
    if FBusSet.cmb124PrcSts.Text = 'PR02:已付款' then
      RetMess := Mess124(data,'124')
    else
      RetMess := MessBeps900(data,'124');

在测试回执的发现，对于FBusSet.rg124return.ItemIndex和FBusSet.cmb124PrcSts.Text始终取得都是

默认值，无法取到更新后的值。

试了几种方法。在引用单元里面加载loadConfig函数即可，这样每次获得的都是最新值。

有感于在做监听连接的时候，一直持续出现一个问题，其实是后台的原因，我却不敢百分百我做的产品没有问题，导致浪费了大量的时间。

遇到问题及时总结，防止再次发生。