TestMe.pas

Основная функция GetTestMe возвращяет указатель на record TRecITestMe в котором находятся интерфейсы функциональных блоков. Описание PTRecITestMe

 Function GetTestMe:PTRecITestMe;

Пример:

initialization
  if GetTestMe.bIsTestCode then begin
     with GetTestMe.ITestCode do begin
        TForm1.F_pIndexClass := IRegisterClass(TForm1._RegisterMethod,TForm1._TestMethods,'TForm1','Test many reg methods');
     end;
  end;