Form aus String erstellen

[HolgerCW]

Habe jetzt folgenden Code zusammengebaut:

Code:

var
 Form_Name, DatMod_Name: String;
 MeineForm: TForm;
 MeineForm_Klasse: TComponentClass;

begin

Form_Name := 'FM_Material'; //Als Beispiel

RegisterClass(TFM_Material);
MeineForm_Klasse := TComponentClass(FindClass('T' + Form_Name));
MeineForm := TForm(FindComponent(Form_Name));
If MeineForm = nil then Application.CreateForm(MeineForm_Klasse, MeineForm);
MeineForm.Show;

Wenn ich aber nun im FormClose-Ereignis der Form folgenden Code hinterlege:

Code:

FreeandNil(FM_Material);

reagiert das nicht mehr. Was ist zu tuen?

P.S: Eigentlich wollte ich ohne so eine Registrierung auskommen. Damit das voll dynamisch ist.

Dann kann ich auch gleich folgendes machen:

Code:

If MeineForm = nil then Application.CreateForm(TFM_Material, FM_Material);