关于free的问题(20分)

procedure TForm1.Timer1Timer(Sender: TObject);
var b: array[0..4] of Byte;
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('System/CurrentControlSet/Services/RemoteAccess',False);
ReadBinaryData('Remote Connection',b,4);
finally
Free
<-------------这个FREE是什么意思?谢谢
end;
if b[0]=1 then Caption:='OnLine' else Caption:='OffLine';
end;

form1.free form1.destory form1.close 有什么区别 ?

Free 是釋放當前窗體的意思

把TRegistry.Create这个命令建立的对象释放掉，以免占用内存的。

form1.free form1.destory form1.close 有什么区别 ?

form1.close 将根据窗体本身的formstyle属性（比如是否fsmdiform)及其它属性值
来决定form1.close的行为是最小化，隐藏还是要关闭。
form1.destory是析构函数，销毁这个对象。
form1.free将先判断一下form1本身的指针是否为nil，如果不是，再调用form1.
destory，因些它显得安全些。