[lmikle]

Код:

procedure WriteCheckBox(Sender : TCheckBox; Name : String; const Values : Array [Boolean] Of String);
begin
...
end;
...
WriteCheckBox(chb1, 'Options',['Enabled','Disabled']);