// 释放内存函数
procedure TcFreeAndNil(var Obj);
begin
try
// 判断是否有赋值
if TObject(Obj)<>nil then
begin
TObject(Obj):=nil;
TObject(Obj).Free;
end;
except
TObject(Obj):=nil;
end;
end;
procedure TcFreeAndNil(var Obj);
begin
try
// 判断是否有赋值
if TObject(Obj)<>nil then
begin
TObject(Obj):=nil;
TObject(Obj).Free;
end;
except
TObject(Obj):=nil;
end;
end;