Klassen auflisten und Eigenschaften auslesen?

[moelski]

@Uwe:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  aClass  : TClass;
  context : TRttiContext;
  types   : TArray<TRttiType>;
  aType   : TRttiType;
  Test    : TUser;
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do begin
    if aType.TypeKind = tkClass then begin
      aClass := aType.AsInstance.MetaclassType;
      if aClass.InheritsFrom(TUser) then begin
        Memo.Lines.Add(aClass.ClassName);

        Test := aClass.????
      end;
    end;
  end;
end;

Eine Frage habe ich doch noch ... Wenn ich nun die Klasse gefunden habe, wie kann ich dann eine Instanz davon erzeugen?

Also in dem Beispiel ... Test := aClass.!??!?!