[DELPHI] Aprire una form dal suo nome

[Nettuno95]

Mi rispondo da solo, ad uso di chi ne avrà (??) bisogno... spulciando la VCL e l'help di delphi, il quale recita:
Call GetClass to obtain a class from a class name. This class can be used as a parameter to routines that require a class.
The Class must be registered before GetClass can find it.

Dunque da queste 2 righe sono risalito a questo codice:

Procedure ApriForm(sNome: String); 
Var oForm: TForm;     
     oClass:TFormClass; 
begin   
  oClass := TFormClass(GetClass('T'+sNome));
   if Assigned(oClass) then
   begin
     oForm := oClass.Create(Self);
     oForm.Show;
   end;
end;

la chiamata:

ApriForm('Form1');

Ovviamente nella form l'ultima riga dovrà essere il register della classe 'form'

 
Initialization
  RegisterClass(TForm1)
Finalization
  UnregisterClass(TForm1)