下面语句怎么写得精简写

下面语句如何写得精简写？
  s:='1,1,1,1,1,1,1,1,1,1,1,1,1'; 
  ss:=TStringlist.Create;
  ss.Delimiter:=',';
  ss.DelimitedText:=s;
  for i:=0 to ss.count-1  do
  IF CheckListBox1.Checked[0] THEN
     ss[0]:='1,' ELSE ss[0]:='0,';
  IF CheckListBox1.Checked[1] THEN
     ss[1]:='1,' ELSE ss[1]:='0,';
  IF CheckListBox1.Checked[2] THEN
     ss[2]:='1,' ELSE ss[2]:='0,';
  IF CheckListBox1.Checked[3] THEN
     ss[3]:='1,' ELSE ss[3]:='0,';
  IF CheckListBox1.Checked[4] THEN
     ss[4]:='1,' ELSE ss[4]:='0,';
  IF CheckListBox1.Checked[5] THEN
     ss[5]:='1,' ELSE ss[5]:='0,';
  IF CheckListBox1.Checked[6] THEN
     ss[6]:='1,' ELSE ss[6]:='0,';
  IF CheckListBox1.Checked[7] THEN
     ss[7]:='1,' ELSE ss[7]:='0,';
  IF CheckListBox1.Checked[8] THEN
     ss[8]:='1,' ELSE ss[8]:='0,';
  IF CheckListBox1.Checked[9] THEN
     ss[9]:='1,' ELSE ss[9]:='0,';
  IF CheckListBox1.Checked[10] THEN
     ss[10]:='1,' ELSE ss[10]:='0,';
  IF CheckListBox1.Checked[11] THEN
     ss[11]:='1,' ELSE ss[11]:='0,';
  IF CheckListBox1.Checked[12] THEN
     ss[12]:='1,' ELSE ss[12]:='0';


 YHQX:=ss[0]+ss[1]+ss[2]+ss[3]+ss[4]+ss[5]+ss[6]+ss[7]+ss[8]+ss[9]+ss[10]+
       ss[11]+ss[12];

------解决方案--------------------
s:='1,1,1,1,1,1,1,1,1,1,1,1,1';
  ss:=TStringlist.Create;
  ss.Delimiter:=',';
  ss.DelimitedText:=s;
  for i:=0 to ss.count-1  do
  begin
     IF CheckListBox1.Checked[i] THEN
     ss[i]:='1,' ELSE ss[i]:='0,';
     YHQX:=YHQX+ ss[i];
  end;