写出一个不会造成资源分配崩溃的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模块可以使程序总能执行finally部分中的任何程序代码，即使有错误在保护模块
中产生。当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；
如何保障程序对所用资源的释放，在程序编制中是一个非常重要的问题，必须在程序编制中加以实践和注意。
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus();){kind=link}