寫出一個不會造成資源分配崩潰的Delphi應用程式的
關鍵是確保如果程式中分配了資源，即使當故障發生，程
序也應能釋放佔用的資源。
文件、記憶體、WINDOWS資源和物件是一些必須時時加
以注意的需確保釋放的資源。下面的事件控製程式碼範例中
先分配了內存，然後產生了一個錯誤，而造成它不再執行
釋放記憶體的程式碼：
PRocedureTForm1． ButtonlClick（Sender：Tobject
）；
Var
Pointer1：Pointer；
Integer1，Numzero：Intger；
begin
Numzero：Κ0；
GetMem（Pointer1，1024）；｛分配1K的記憶體資源｝
Integer1：Κ5divNumzero；｛此句產生一個除法錯
誤｝
FreeMem（Pointer1，1024）；｛這裡此句將不被執
行｝end；
儘管大多數錯誤不會這麼明顯，但上例包含了重要的
一點：當錯誤產生後，程式執行跳出模組，其後的資源釋
放程式碼不再被執行。為了確保上例中的FreeMem能夠
釋放被GetMem佔用的記憶體資源，必須把程式碼放入一個資源
保護模組。
這裡給出一個曲型的資源保護模組的格式：
｛資源的分配｝
try
｛資源的使用｝
finally
｛資源的釋放｝
end；
上面的try． ． ． finally模組可以讓程式總是能執行fi
??nally部分中的任何程式碼，即使有錯誤在保護模組
中產生。當try部分中的某一條程式碼執行時引起錯誤時，執
行將直接跳到finally部分；若執行中沒有錯誤產生，則
程序按正常順序執行。
在下面的事件控製程式碼範例中先分配了內存，然後產
生了一個錯誤，但是仍然執行了釋放記憶體的程式碼：
ProcedureTForm1． Button1Click（Sender：Tobject
）；
Var
Pointer1：Pointer；
Integer1，Numzero：Integer；
begin
Numzero：Κ0；
GetMem（Pointer1，1024）；｛分配1K的記憶體資源｝
try
Integer1：Κ5divNumzero；｛此句產生一個除法錯
誤｝
finally
FreeMem（Pointer1，1024）；｛這裡此句仍將被執
行｝
end；
end；
如何保障程序對所用資源的釋放，在程序編制上是一
個非常重要的問題，必須在程序編制中加以實踐和注意。