Освобождение объектов в деструкторе

[CyberMaxRu]

В классе TFIBCustomDataSet вот такой страшный код:

destructor TFIBCustomDataSet.Destroy;
begin
  inherited Destroy;

{$IFDEF CSMonitor}
  FCSMonitorSupport.Free;
{$ENDIF}

  FSourceLink.Free;
  FBase.Free;
  ClearBlobStreamList;
  FBlobStreamList.Free;
  FOpenedBlobStreams.Free;
  FRelationTables.Free;
  vFieldDescrList.Free;
  FSQLs.Free;
  FFilterParser.Free;
  FFilterParser:=nil;
  FRecordsCache.Free;
  FRecordsCache:=nil;
  FAutoUpdateOptions.Free;
  FFNFields.Free;
  FFNFields:=nil;
  if Assigned(FKeyFieldsForBookMark) then
   FKeyFieldsForBookMark.Free;

  FreeAndNil(vTimerForDetail);
  FreeAndNil(vScrollTimer);
 FCacheModelOptions.Free;
 FreeMem(vPartition);
 FFilteredCacheInfo.NonVisibleRecords.Free;
end;

Предлагаю в деструкторах заменить все .Free и .Free/:= nil на FreeAndNil().

[EndErr]

+1