Pasar una Clase por parametro

[ecfisa]

Hola.

El compañero Al, me ha hecho una observación sobre un error que cometí al tipear una línea de código:

Código Delphi [-]
procedure TForm1.MostrarVentanaNoModal(AClass: TFormClass);
var
  Frm: TForm;
begin
  Frm:= Application.FindComponent(Copy(AClass.ClassName,2,MaxInt)) as TForm;
  if Assigned(Frm) then
    Frm.Show
  else
    Frm.Create(Application);  <---- AQUI.
end;

Lo correcto es:

Código Delphi [-]
 AClass.Create(Application)

Mis disculpas si la confusión le acarreó dolores de cabeza a alguien y mi agradecimiento a Al por avisarme prontamente del error, ya que
la idea es que los ejemplos ayuden a simplificar el entendimiento y no que lo compliquen más...

Saludos.