Yo probé este sencillo código en Delphi 6, y funciona sin problemas:
Código:
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í?