ON ユニット内で永久ループが発生しないようにするには、以下のコード・セグメントを使用します。
on Error begin; on Error System; . . . end;
プログラムがエンドレス・ループに陥った場合に、最も重要なのは、マシンをシャットダウンせずにループから抜け出すことです。エンドレス・ループの処理には、以下の解決策をとることをお勧めします。