List Index Out of Bounds [4] Error

[Singtel]

Hi,<br>&nbsp;&nbsp;I got 'List Index Out Bounds [4]' Error when I try to connect Platinum Infosession (32 bit) using TDatabase. Platinum Infosession (32 bit) is VDB(Virtual Database) to access/update information from/into mainframe. The errors appear when I try to access both Infosession and SQL7 sequentially.<br>&nbsp;&nbsp;I've already raise exception to allow application keep running. But it always break the application when it hit 'Index out of Bounds' error.<br><br>The Code =<br>try<br>&nbsp;&nbsp;InfoArts.Connected := True;<br>except<br>&nbsp;&nbsp;Memo.Lines.Add('...error!!')<br>end;<br><br>and also trying to raise an exception =<br><br>&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InfoArts.Connected := True;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;suc2 := true;<br>&nbsp;&nbsp;&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;on E: EDBEngineError do begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;err_msg2 := E.Errors[4].Message;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Memo.Lines.Add('Database Connection error(EDBEngineError) : ' +<br>E.Errors[4].Message);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;suc2 := false;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;on E: EVariantError do begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Memo.Lines.Add('List out of line error : ' + E.Message);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;suc2 := false;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;on...(and more...)<br>end;<br><br>How to let the application running without break if this exception raised?<br>What Error Code should I used?<br>Thanks in advance.<br><br><br><br>