Dudas con el funcionamiento del RegisterClasses en Delphi 6.0

[delphi.com.ar]

Yo probé este sencillo código en Delphi 6, y funciona sin problemas:

procedure TForm1.Button1Click(Sender: TObject);
var
  AClass: TPersistentClass;
begin
  AClass := GetClass('TForm1');
  if AClass <> Nil Then
    ShowMessage('AClass <> Nil');
end;

initialization
  RegisterClasses([TForm1]);

finalization
  UnRegisterClasses([TForm1]);

¿Estas usando alguna vez en el proyecto la unit que registra las clases?
¿Si pones un BreakPoint en la línea del RegisterClass se detiene ahí?