[Brons14]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure TForm1.FormCreate(Sender: TObject); begin Form1.StringGrid1.Cells[0,0]:='X'; Form1.StringGrid1.Cells[1,0]:='Y'; Form1.StringGrid1.Cells[2,0]:='X и Y'; Form1.StringGrid1.Cells[0,1]:='1'; Form1.StringGrid1.Cells[1,1]:='1';   end;   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.