Алгоритм

[xRamzeSx]

Всем доброго времени суток.

Есть некий алгоритм, который нужно переписать в код.

Вопрос заключается в следующем:

Имеется адрес, который имеет значение 55. На форме программы распологаются 24 CheckBox'а и кнопка. Каждому чеку соответствует значение от 12-36. В зависимости от выбранных чеков, по нажатию кнопки, в адресе должна проводиться замена значения 55 на указанное.
Перед заменой, необходимо проверять значение адреса, то есть, если оно равно 55, меняем его на 12, после того как оно снова стало равно 55, меняем его на 13 и так до 36. Если какой-нибудь чек не выбран, тогда переход на следующий.

Всё что у меня получилось составить:

procedure TForm1.Timer1Timer(Sender: TObject);
var
res:int64;
begin
res:=0;
read_value($7E1D64,4,res);
Label1.Caption:=''+inttostr(res);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
res:int64;
begin
if Label1.Caption='55'
then
  begin
 
    if CheckBox1.Checked=True
    then
    res:=12;
    write_value($7E1D64,4,res);
 
    if CheckBox2.Checked=True
    then
    res:=13;
    write_value($7E1D64,4,res);
 
    if CheckBox3.Checked=True
    then
    res:=14;
    write_value($7E1D64,4,res);
 
    ...
    
    end;
end;

Не знаю, как составить алгоритм