Where to do initial registration tests

You can use 2 methods for initial test registration:
Create a test initial registration method

procedure RegisteredTested;
begin
 if GetTestMe.bIsTestCode then begin
  with GetTestMe.ITestCode do begin
    L_pIndexUnit:=IRegisterUnit(ltComponents,'Calculator','unit Calculator components');
    L_pIndex_DIV   := IRegisterClass(TCalcTest_MultiReg.Div_RegisterMethod,TCalcTest_MultiReg.Div_TestMethods,'TCalcTest_MultiReg-DIVIDE','Class Calculater DIVIDE internal created');
  end;
 end else begin
  ShowMessage('Not find  TestMeDllxx.dll');
 end;
end;

1. Registration in section initialization

initialization
  RegisteredTested;

2. Registration at the event

procedure TForm1.btn_RegTestClick(Sender: TObject);
begin
   RegisteredTested;
end;