哪里错了?

                            
procedure         Tform1.TestBtnClick(Sender:Tobject);            
      var       z,y,x:integer;        
      begin        
                      x:=100;        
                      y:=0;        
                      try        
                                      z:=x       div       y;        
                      except        
                                      on       EdivByZero            
                                      do       z:=-1;        
                      MessageDlg('Z'+IntToStr(z),mtInformation,[mbOK],0);        
      End;        
   
  各位大虾,请问上面的代码哪里错了?

查看回复