проверка данных в Delphi

[Marla14]

Доброго времени суток! Помогите пожалуйста с решением небольшой задачи. Есть 2 формы, на одной Stringgrid и кнопка. Stringgrid из 3 столбцов и 2 строк, 2 столбца и 1 строка фиксированы. Первая строка название столбцов: x, y и x AND y (из мат логики). Вторая строка с фиксированными значениями типа Boolean например 1 и 1, пользователь вводит значение в последнюю ячейку и если значение верно условию x AND y то по нажатии кнопки открывается новая форма, если нет то ячейка выделяется желтым цветом. Помогите пожалуйста даже не знаю с чего начать и возможно ли это, с компонентом StringGrid плохо знаком, все что у меня выходит это просто посчитать значения, а вот как проверить правильность введенного не догадываюсь

procedure TForm1.Button1Click(Sender: TObject);
var x, y, a: boolean;
xs, ys, astr: string;
i: integer;
begin
 i:=0;
    for x:=false to true do
   for y:=false to true do
       begin
         if x=false then xs:='0' else xs:='1';
         if y=false then ys:='0' else ys:='1';
          a:= x and y;
         if a=false then astr:='0' else astr:='1';
         Form1.StringGrid1.cells[0,1]:=xs;
         Form1.StringGrid1.cells[1,1]:=ys;
         Form1.StringGrid1.cells[2,1]:=astr;
       end;
end;
end.

[Artsiom]

http://stringgrid-delphi.ru/events.php

[Аватар]

var i1,i2: Integer;
...
 if TryStrToInt(StringGrid1.cells[0,1],i1) and ((i1=0) or (i1=1)) and
    TryStrToInt(StringGrid1.cells[1,1],i2) and ((i2=0) or (i2=1))
   then StringGrid1.cells[2,1]:=IntToStr(Integer(i1 and i2 = 1))
   else ячейка выделяется желтым цветом

[Marla14]

То есть, так мы сами задаем правильные значения, а как сделать что бы программа сама посчитала x and y, а потом проверила с значением введенным пользователем, так как если таблица будет состоять из 3х переменных, то будет 8 строк а это уже большой код, если так для каждой строки прописывать

[Аватар]

Тогда так

  if TryStrToInt(StringGrid1.cells[0,1],i1) and ((i1=0) or (i1=1)) and
     TryStrToInt(StringGrid1.cells[1,1],i2) and ((i2=0) or (i2=1)) and
     TryStrToInt(StringGrid1.cells[2,1],i3) and ((i3=0) or (i3=1)) and
     (i1 and i2 = i3) then <совпало> else <не совпало или не верные данные>

[Marla14]

все заработало, спасибо Вам большое!