تمرين حول الاستثناء Exception

[karika2]

أظهار الرسالة .
Application.MessageBox('','' ,MB_ICONEXCLAMATION);
الكود

كود :

procedure TForm1.Button1Click(Sender: TObject); Var A,b,c: Integer; begin A := StrToInt (Edit1.Text); b := StrToInt (Edit2.Text); Edit3.Text := IntToStr(C); C := A Div B ; if b=0 then Application.MessageBox('لا يمكن قبول رقم صفر كعدد ثانى الرجاء تغير الرقم','warring' ,MB_ICONEXCLAMATION); Edit3.Text :='عفواّ : لا يمكن القسمة على صفر' end;