title: Suppress an error message box appearing in Delphi for a specific error
body: <p>At the moment I have a Delphi form running and upon losing connection to its Database/loss of network, it re-establishes and carries on.</p>
  
  <p>The service is on a timer and each minute, it pops up with message box saying failure to connected to db on network [ip address]. This is at the start of the timer, a stored proc is ran.</p>
  
  <p>I have all errors writing to a log file on the service local machine, is there a way I can suppress the message box appearing as I don't need it to appear all the time? by message box it is a windows exception box not a showMessageBox(). It automatically pops up when the exception hits but it will continuously hit whilst the machine boots up and re-establishes connection to the network.</p>
  
  <p>The code I have is as follows</p>
  
  <pre><code>    (*Call db Procedure*)
              try
                db.SQL.Clear;
                db.SQL.Add('call dbProc();');
                db.ExecSQL;
              except
                On E : Exception Do
                begin
                  If E.ClassName = 'EIBInterBaseError' Then
                    begin
                      WriteToLog('Network Error : An error has occured whilst trying to communicate with the db outside the'
                            + ' loop to catch up , please see user guide V.1.0.2.145',2);
                      reconnectdb;
                    end
                    else if E.ClassName = 'EADOError' then
                    begin
                      WriteToLog('Network Error : An error has occured whilst trying to communicate with the db outside the'
                            + ' loop to catch up , please see user guide V.1.0.2.145',2);
                      reconnectDB;
                    end;
                  end;
              end;
  </code></pre>