TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[BerndS]

Ich habe noch eine Typenprüfung hinzugefügt:

Delphi-Quellcode:

uses
  System.TypInfo;
...

procedure TForm1.bt1Click(Sender: TObject);
var
  F: TPersistentClass;
  D:TForm;
begin
  F := FindClass('TForm2');
  if Assigned(F) and PTypeInfo(F.ClassInfo).TypeData^.ClassType.InheritsFrom(TCustomForm) then
    begin
      Application.CreateForm(TComponentClass(F) ,  D);
      D.Show;
    end;

end;