[Andrey_Ryzhov]

Здравствуйте. Пишу тест на XE3, там вопрос и 5 вариантов ответа, 2 из них правильные. Делаю проверку Chek`ов черех if, 1 и 2 чекбоксы - правильный ответ (соответственно только 1 или только 2 или все кроме 1го или все кроме 2го или просто все кроме 1 и 2 - неправильный ответ). Вроди все получилось, но вот проблема.. если выбрать все и 1 или все и 2, то ответ помечается правильным (а вообще то он не правильный), то есть при проверке, игнорируется 1 или 2 чекбоксы. Объясните мне что не так, или я опять много чего тут накуролесил...
собственно кусочек кода...

Код:

procedure TForm3.Button1Click(Sender: TObject);
var TF: TextFile;
    LN: string;
begin
if CheckBox1.Checked = true and CheckBox2.Checked = true and CheckBox3.Checked = false and CheckBox4.Checked = false and CheckBox5.Checked = false then
begin
Form1.Panel2.Color:= clGreen;
LN:= 'YES';
 assignfile (TF, form4.SaveDialog1.FileName);
 append (TF);
 writeln (TF, LN);
 CloseFile (TF);
end
 else
 begin
Form1.Panel2.Color:= clRed;
 LN:= 'NO';
 assignfile (TF, Form4.SaveDialog1.FileName);
 append (TF);
 writeln (TF, LN);
 CloseFile (TF);
 end;
end;

Буду очень признателен за помощь...