```pascal unit testregistry; ... procedure RegisterTest(ATestClass: TTestCaseClass); overload; // <-- here we got overload procedure RegisterTest(const ASuitePath: String; ATestClass: TTestCaseClass); overload; // <-- here we got overload procedure RegisterTest(const ASuitePath: String; ATest: TTest); overload; // <-- here we got overload procedure RegisterTests(ATests: Array of TTestCaseClass); procedure RegisterTests(const ASuitePath: String; ATests: Array of TTestCaseClass); procedure RegisterTest(aSuite: TTestSuite); // <-- here lost overload procedure RegisterTest(const aSuitePath : String; aSuite: TTestSuite); // <-- here lost overload ```