1 files changed, 0 insertions, 3 deletions
diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas
index 21f934ed..26d24f0d 100644
--- a/src/gui/fpg_form.pas
+++ b/src/gui/fpg_form.pas
@@ -308,7 +308,6 @@ begin
     except
       on E: Exception do
       begin
-        ModalResult := mrError;
         Visible := False;
         fpgApplication.HandleException(self);
       end;
@@ -418,8 +417,6 @@ end;
 procedure TfpgBaseForm.Hide;
 begin
   Visible := False;
-  if ModalResult = mrNone then  // No modal Result was set, and we need something
-    ModalResult := mrError;     // other than mrNone to exit modal event loop
 end;
 
 procedure TfpgBaseForm.Close;