各位大哥帮我查一下这个程序的错误啊，谢谢

Question

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
ping,awin,bwin:boolean;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
if a=b then
  ping:=true
  else
  begin
   if a:=1 then      这里有错吗
     begin
     if b:=2 then    这有错吗
     awin:=false
     else
     awin;=true
     end;
   else
    begin
      if a:=2 then   这有错吗
        begin
         if b:=1 then    这有错吗
         awin:=true
         else
         awin:=false
        end
       else
       if a:=3 then
       begin
       if b:=1 then
       awin:=false
       else
       awin:=true
       end
    end
  end
if ping then
  label2.Caption:='平局'
  else
  begin
  if awin then
  label2.Caption:='play1获胜'
  else
  label2.Caption:='play2获胜'  endend;
这是一个石头 剪子 布的小游戏的代码，我是新手，请各位高手指点，谢谢
其实好象就是一种错误

Answer 1

a:=strtoint(trim(edit1.Text));
b:=strtoint(trim(edit2.Text));
.......
if a = 1 then 
....
if b = 2 then 
....