[icWasya]

Например так

Код:

procedure ReadCheckBox(Sender:TCheckBox;const Name:String);
var
  St : String;
begin
  St := AnsiUpperCase(Ini.ReadString('Options',Name, 'No'));
  Sender.Checked := St = 'YES';
end;
procedure WriteCheckBox(Sender:TCheckBox;const Name:String);
  const
    fs : array[Boolean] of String = ('No', 'Yes')';
begin
  Ini.WriteString('Options', Name, fs[Sender.Checked]));
end;

использование

Код:

ReadCheckBox (chk1,'FullScreen');
ReadCheckBox (chk2,'UseMouse');