[icWasya]

не могу понять как исправить

Как-то так

Код:

type
  TBoolToStringArray = array[bool] of string;
const
   ED :TBoolToStringArray = ('Disabled','Enabled');
   YN :TBoolToStringArray = ('No','Yes');
   Dig :TBoolToStringArray = ('0','1');

procedure ReadCheckBox(Sender:TCheckBox;const Name:String;const YN:TBoolToStringArray);
var
  St : String;
begin
  St := Ini.ReadString('Options',Name, YN[false]);
  Sender.Checked := CompareText(St ,YN[true])=0;
end;
procedure WriteCheckBox(Sender:TCheckBox;const Name:String;const YN:TBoolToStringArray);
begin
  Ini.WriteString('Options', Name, YN[Sender.Checked]));
end;

Код:

ReadCheckBox (chk1,'CanClick',ED);
ReadCheckBox (chk2,'UseMouse',YN);