1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

class function CreateClassReference(const AClassName: string; const AClassAncestor: TClass; var AClassInstance): Boolean;
var 
  ClassObj: TObject absolute AClassInstance;
  ClassRef: TPersistentClass;
begin
  ClassObj := nil;

  // Klassenreferenz laden
  ClassRef := GetClass(AClassName);

  if Assigned(ClassRef) then
  begin
    if ClassRef.InheritsFrom(AClassAncestor) then
    begin
      ClassObj := ClassRef.NewInstance;
      (ClassObj as ClassRef).Create;
    end;
  end;
end;