procedure WriteCheckBox(Sender : TCheckBox; Name : String; const Values : Array [Boolean] Of String);