* take care of destructor being called if constructor failed

git-svn-id: trunk@22601 -

packages/fcl-db/src/base/fields.inc

@@ -3142,8 +3142,9 @@ end;
 Destructor TFields.Destroy;
 
 begin
-  Clear;
-  FFieldList.Free;
+  if Assigned(FFieldList) then
+    Clear;
+  FreeAndNil(FFieldList);
   inherited Destroy;
 end;