Комментарий к оценке: Да-да! Это то, что нужно, спасибо!
Единственное: чтобы это работало, классы нужно регистрировать в потоковой системе. Привожу код обоих модулей:

unit Unit1;

interface uses Classes;

type

  TClass1 = class(TPersistent) end;
  TClass2 = class(TPersistent) end;
  TClass3 = class(TPersistent) end;

implementation

initialization

  RegisterClasses([TClass1, TClass2, TClass3]);

end.

========

program test_unit_classes;

{$APPTYPE CONSOLE}

uses
  Rtti,
  SysUtils,
  Unit1 in 'Unit1.pas';

procedure Test;
Var
 t : TRttiType;
  //extract the unit name from the QualifiedName property
  function GetUnitName(lType: TRttiType): string;
  begin
    Result := StringReplace(lType.QualifiedName, '.' + lType.Name, '',[rfReplaceAll])
  end;

begin
 //list all the types of the System.SysUtils unit
  for t in TRttiContext.Create.GetTypes do
   if SameText('Unit1',GetUnitName(t)) and (t.IsInstance) then
     Writeln(t.Name);
end;

begin
  try
    Test;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.