оптимизон от нейронки, доделал автоматические действия, добавил глобальный лог, сделал реконекты к ДА

uDataBase.pas

@@ -445,7 +445,6 @@ begin
   if not CheckTableExists(TableName) then
   begin
     Context := TRttiContext.Create;
-    try
       RttiType := Context.GetType(RecordTypeInfo);
       FieldDefs := '';
       for Field in RttiType.GetFields do
@@ -455,14 +454,11 @@ begin
         FieldDefs := FieldDefs + Field.Name + ' ' + GetSQLType(Field);
       end;
       FConnection.ExecSQL(Format('CREATE TABLE %s (%s)', [TableName, FieldDefs]));
-    finally
-      Context.Free;
-    end;
   end
   else
   begin
     Context := TRttiContext.Create;
-    try
+
       RttiType := Context.GetType(RecordTypeInfo);
       Query := TFDQuery.Create(nil);
       try
@@ -478,9 +474,7 @@ begin
       finally
         Query.Free;
       end;
-    finally
-      Context.Free;
-    end;
+
   end;
 end;
 
@@ -507,7 +501,7 @@ begin
   EnsureTableForRecord(TableName, TypeInfo(T));
 
   Context := TRttiContext.Create;
-  try
+
     RttiType := Context.GetType(TypeInfo(T));
     Fields := RttiType.GetFields;
 
@@ -598,9 +592,7 @@ begin
     finally
       Query.Free;
     end;
-  finally
-    Context.Free;
-  end;
+  
 end;