FormularArray den richtigen Create aufrufen! Wie?

[Mavarik]

Neuer Versuch!

Gegeben sein TForm42,TForm43

Delphi-Quellcode:

type 
   TF : Array[1..2] of TForm;

Um jetzt ein Formular zu erzeugen, fehlt mir aber der Typ (TForm32.Create(Self)). Den bekomme ich doch sicher aus der RTTI oder?

Habe es jetzt umgesetzt mit:

Delphi-Quellcode:

type
  TShowForm = reference to Function(Owner : TComponent):TForm;
var
  F : Array [1..2] of TShowForm;
begin
  F[1] := Function(Owner:TComponent):TForm
            begin
              Result := TForm42.Create(Owner);
            end;
  F[2] := Function(Owner:TComponent):TForm
            begin
              result := TForm43.Create(Owner);
            end;
  F[1](self).Show;
end;

Jemand ne schönere Idee?

Mavarik