* Patch from Luiz Americo to replace TList by TFPList in TLookupList, bug #13225

git-svn-id: trunk@12774 -

packages/fcl-db/src/base/db.pas

@@ -245,7 +245,7 @@ type
 
   TLookupList = class(TObject)
   private
-    FList: TList;
+    FList: TFPList;
   public
     constructor Create;
     destructor Destroy; override;
@@ -2295,14 +2295,14 @@ end;
 constructor TLookupList.Create;
 
 begin
-  FList := TList.Create;
+  FList := TFPList.Create;
 end;
 
 destructor TLookupList.Destroy;
 
 begin
-  if FList <> nil then Clear;
-  FList.Free;
+  Clear;
+  FList.Destroy;
   inherited Destroy;
 end;