Frames über deren Namen dynamisch aufrufen

[ensacom]

Hallo, ich benutze folgenden Code um Frames zur Laufzeit in meine Form zu laden

Delphi-Quellcode:

private
    FActiveFrame:TFrame; //zum merken des derzeit aktiven Frames



uses  
  UnitFrameShowInteressenten, UnitFrameAddInteressent, UnitFrameObjekte;




procedure TForm1.Button1Click(Sender: TObject);
begin
  if (not assigned(FActiveFrame)) or not (FActiveFrame is TFrameShowInteressenten) then
  begin
    freeandnil(FActiveFrame);
    FActiveFrame:=TFrameShowInteressenten.Create(self);
    FActiveFrame.Parent:=TabSheet1;
    TabSheet1.Caption := 'Interessenten';
  end;
end;




procedure TForm1.Button2Click(Sender: TObject);
begin
  if (not assigned(FActiveFrame)) or not (FActiveFrame is TFrameObjekte) then
  begin
    freeandnil(FActiveFrame);
    FActiveFrame:=TFrameObjekte.Create(self);
    FActiveFrame.Parent:=TabSheet1;
    TabSheet1.Caption := 'Objekte';
  end;
end;

Kann mir nun einer sagen wie ich das ganze so aufrufen kann, dass ich nur den Namen des Frames angeben brauche?

Danke