Zugriffsverlietzung bei TCheckBox

[ibp]

Delphi-Quellcode:

procedure TSettMan.LoadTabSheet(TabSheet: TTabSheet; IniFile: TIniFile);
  var i: Integer; Section, Ident : String; CurrCtrl: TControl;  CurrClass: TClass;
begin
  Section := TabSheet.Caption;
  ...
  for i:=0 to TabSheet.ControlCount-1 do
  begin
    CurrCtrl := TabSheet.Controls[i];
    Ident   := CurrCtrl.Name;
 
    ...
    else
      if (CurrCtrl is TCheckBox) then
          (CurrCtrl as TCheckBox).Checked := IniFile.ReadBool(Section, Ident, False)
    else
    ...
  end;//for
end;{procedure}