Probleme mit Procedure die ein Frame aufrufen soll

Hallo, ich habe folgenden code mit dem ich ein frame aufrufen kann.

Delphi-Quellcode:

			  if (not assigned(FActiveFrame)) or not (FActiveFrame is TfWohnen1) then

  begin

    freeandnil(FActiveFrame);

    FActiveFrame := TfWohnen1.Create(fMain);

    FActiveFrame.Parent := FramePanel;

  end;

Nun wollte ich daraus eine procedure machen dass ich nur noch das Frame übergeben muss.
Also in der Art

markieren

Delphi-Quellcode:

			procedure TfMain.loadFrame(Framename: TFrame);

begin

 if (not assigned(FActiveFrame)) or not (FActiveFrame is Framename) then

  begin

    freeandnil(FActiveFrame);

    FActiveFrame := Framename.Create(self);

    FActiveFrame.Parent := FramePanel;

  end;

end;

Aufrufen wollte ich das ganze dann mit
loadFrame(TfWohnen1);
Das funktioniert so nicht, kann mir einer sagen wie es richtig geht?
Der Fehler liegt bei (Framename: TFrame) wie ich das sehe.

Danke schonmal und einen schönen Abend

Probleme mit Procedure die ein Frame aufrufen soll

Probleme mit Procedure die ein Frame aufrufen soll

Forumregeln