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

[Insid3Code]

السلام عليكم و رحمة الله
لكي لا يترك الموضوع بدون ردود هذه مساهمتي البسيطة:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  A, b, c: Integer;
begin
  A := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  C := 0;
  try
    C := A div B;
  except
    on E: Exception do
    begin
      if E.ClassName = 'EDivByZero' then
        ShowMessage('رسالة الخطأ الخاصة بالقسمة على الصفر');
    end;
  end;
  Edit3.Text := IntToStr(C);
end; 


تعمدت التدقيق في الفحص لتجنب اظهار رسالة الخطأ في حالات غير حالة الفسمة على الصفر...