подскажите что я не так сделал, короче тест выполняется при помощи CheckBox"ов но при подсчете верных ответов всегда один и тот же результат

вот так это выглядит

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (!CheckBox1) n=n+1;
if (CheckBox2) n=n+1;
if (!CheckBox3) n=n+1;
if (!CheckBox4) n=n+1;
if (!CheckBox5) n=n+1;
if (CheckBox6) n=n+1;
if (CheckBox7) n=n+1;
if (CheckBox8) n=n+1;
if (!CheckBox9) n=n+1;
if (!CheckBox10) n=n+1;
if (!CheckBox11) n=n+1;
if (!CheckBox12) n=n+1;
if (!CheckBox13) n=n+1;
if (CheckBox14) n=n+1;
if (!CheckBox15) n=n+1;
if (CheckBox16) n=n+1;
if (!CheckBox17) n=n+1;
if (CheckBox18) n=n+1;
if (CheckBox19) n=n+1;
if (!CheckBox20) n=n+1;
if (CheckBox21) n=n+1;
if (CheckBox22) n=n+1;
if (n<11) Panel2->Caption="ó âàñ íèçêèé óðîâåíü ìîòèâàöèè";
else if (n>15) Panel2->Caption="ó âàñ âûñîêèé óðîâåíü ìîòèâàöèè";
else Panel2->Caption="ó âàñ ñðåäíèé óðîâåíü ìîòèâàöèè";
Label1->Caption=IntToStr(n);
n=0;
}

Спасибо большое, еще один маленький вопрос, как заблокировать кнопку от повторного нажатия, а то никак не могу вспомнить и найти в хелпе

не я говорю про Button1, на приходит мысль конечно сделать так

if (j) {тело программы
j = false}
где j будет описываться по умолчанию ,в начале программы, true, но помница есть возможно просто заблокировать кнопку от повторного нажатия..

так.. еще одна вещь меня интересует, почему эта программа не запускается на других ПК? какие надо установить настройки компилятора что бы он сохранял в .ехе файле все необходимые для работы компоненты?