[Brons14]

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

Код:

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.