fix codex ai

Author: Al-Muhandis

tests/gui.lpi

@@ -148,6 +148,12 @@
       <Item>
         <Name Value="EFOpenError"/>
       </Item>
+      <Item>
+        <Name Value="EdNotImplemented"/>
+      </Item>
+      <Item>
+        <Name Value="EdException"/>
+      </Item>
     </Exceptions>
   </Debugging>
 </CONFIG>

tests/test_dclasses.pas

@@ -15,6 +15,10 @@   TTestDClasses = class(TTestCase)
 
 implementation
 
+uses
+  SysUtils
+  ;
+
 procedure TTestDClasses.TestInheritances;
 begin
   AssertTrue(EdException.InheritsFrom(Exception));

tests/test_dutils.pas

@@ -19,6 +19,10 @@   TTestDUtils = class(TTestCase)
 
 implementation
 
+uses
+  dClasses
+  ;
+
 procedure TTestDUtils.TestParameterizeSQLNilParams;
 var
   S: string;