Создание Single Page Application на фреймах

type
TBaseFrame = class(TFrame)
public
  procedure Init;  virtual;
...
end;
TBaseFrameClass = class of TBaseFrame;
...
implementation
procedure TBaseFrame.Init();
begin
  // в базовом фрейме - ничего, а в наследниках скорее всего пригодится
end;

uses ....
UBaseFrame;
TForm1 = class(TForm)
public
  CurrentFrame : TBaseFrame;
  procedure CreateFrame(AClass: TBaseFrameClass)
end;
...
implementation 
procedure TFrom1.CreateFrame(AClass: TBaseFrameClass);
begin
  if Assigned(CurrentFrame) then
    CurrentFrame.Free;
 
  CurrentFrame := AClass.Create(Self);
  CurrentFrame.Parent := pnlMain;
  CurrentFrame.Align := alClient;
  CurrentFrame.Init();
end;

TMyFrame1 = class(TBaseFrame)
public
  aaa: integer;
  procedure Init; override;
end;
 
procedure TMyFrame1.Init; 
begin
   aaa := 5;  
end;

CreateFrame(TFrame1);
...
CreateFrame(TFrame5);