Fix memory leak

copytable.pas

@@ -175,7 +175,7 @@ var
   i: Integer;
   Count: Integer;
 begin
-  dmSysTables.sqQuery.Close; //todo: (low priority) is clsoing sqquery really necessary?
+  dmSysTables.sqQuery.Close; //todo: (low priority) is closing sqquery really necessary?
   FSourceIndex:= SourceIndex;
   laSourceDatabase.Caption:= fmMain.RegisteredDatabases[SourceIndex].RegRec.Title;
   cbDestDatabase.Clear;

main.pas

@@ -3210,7 +3210,6 @@ procedure TfmMain.lmViewFieldsClick(Sender: TObject);
 var
   Node: TTreeNode;
   dbIndex: Integer;
-  FieldsList: TStringList;
   FieldTitle: string;
   FieldNode: TTreeNode;
   PKFieldsList: TStringList;
@@ -3233,7 +3232,6 @@ begin
         GetConstraintFields(Node.Text, PKIndexName, PKFieldsList);
 
       // Fields
-      FieldsList:= TStringList.Create;
       GetFields(dbIndex, Node.Text, nil);
       i:= 1;
       with SQLQuery1 do