delphi - これをループまたは短いバージョンに変更するにはどうすればよいですか?

Question

次のコードがあります。ループまたは別の短いバージョンを使用して、これを単純化するにはどうすればよいですか?

if checkbox1.Checked = true then
    begin
      a := 1;
    end
   else
      begin
      a := 0;
      end;
    if checkbox2.Checked = true then
      begin
      b := 1;
      end
    else
      begin
      b := 0;
      end ;
    if checkbox3.Checked = true then
      begin
      c := 1;
      end
    else
      begin
      c := 0;
      end;