program BDE_Error_Demo;

var
  sMsg: String;
  i   : integer;

// Uses the EDBEngineError's ErrorCount() method to enumerate all errors 
// on BDE's stack of messages. They are collected in a string and displayed. 
begin 
  try 
    
  // something prone to errors.. 

  except 
    on e : EDBEngineError do 
      begin 
        sMsg := 'BDE Error Details:' + #13#10#13#10; 
        
        for i := 0 to ErrorCount - 1 do 
        begin 
          sMsg := strErrors + '(' + IntToStr(Errors[i].ErrorCode) + 
                  ') ' + Errors[i].Message + #13#10 
        end; { for i }

        Application.MessageBox(PChar(sMsg), 'Error', MB_ICONHAND + MB_OK) 
      end; 
  end; { try } 
end.