Delphi例外を投げるのではダメなのか?