uses System.Rtti, System.Classes;

var
  Ctx: TRttiContext;
  RType: TRttiType;
begin
  //find the type by its full name
  RType := Ctx.FindType(
    'System.Classes.TThread');

  WriteLn('isInstance = ', RType.IsInstance);
  //isInstance = TRUE
  WriteLn('isRecord = ', RType.IsRecord);
  //isRecord = FALSE
  WriteLn('isPublic = ', RType.IsPublicType);
  WriteLn('baseType is ',
    RType.BaseType.Name);
  //baseType is TObject
end.