Programming: theory and practice by alexBlack

type
   (*$METHODINFO ON*)
   TMyClass = class
   public
      procedure test_method1;
   end;
   (*$METHODINFO OFF*)

//...
procedure TMyClass.test_method1;
begin
   // здесь код процедуры тестирования класса
end;

   tests.register(TMyClass, 'testclass.*');