Crear Objeto por su nombre de clase

[jlrbotella]

Hola:

Actualmente tengo dos formulario (TForm1 y Tform2) y me gustaria crearlos con un único procedure: Ejemplo

procedure CrearFormulario(Form : TForm)
begin
Form := TForm.Create(self);
end;

// Este ejemplo funciona, pero me lo crea con la clase heredada TForm y no la que correspondería que seria:

Form := TForm1.Create(self);
Form := TForm2.Create(self);

Hay alguna forma de crear el objeto sin saber su clase?

NombreClase := Classname(Form);
Form := NombreClase.Create(self);

Un saludo,
JL