adoconnection斷線重連
通過捕獲數據庫斷連的異常，實現重連。
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
begin
if (ADOConnection1.Errors.Count > 0) and (ADOConnection1.Errors.Item[0].Number = -2147467259) then
begin
ADOConnection1.Close;
ADOConnection1.Open;
end;
end;