Delphi函数--释放内存函数

 // 释放内存函数
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;