若sever服務未開啟時，下Session.GetAliasNames(MyStringList)及Database1.GetTableNames(L,false)會有erroor 如何在此中斷程式 包 try except raise 仍會先出現sql訊息才raise 訊息

那應是你在 Delphi 下執行的綠固罷 你試試獨立執行該 EXE 應會跳過首次的 Try - Except 之間的 Exception 而直接好到 Except 之後的 Rasie 的

如同 Justmade 兄的解說, 在此補充一下. 若是你希望在 delphi 下 run 也不要出現 error 的提示, 可以先關閉 [Tools] [Debugger Options] 最下面的那行 [Integrated Debugging] checkbox 取消即可, 但是記得要再開回來, 因為在 delphi 下 run 程式時, 若你忘了將此功能關閉時, 可能會有許多原來在程式中的 error handle by pass 了, 而忽略了, 為避免這個現象, 在使用完該功能後最好還是記得要再打開哦~

可以設定 Delphi Tools->Debuger Options :

謝謝各位的解答...^^