Dynamiczne tworzenie ramek (TFrames)

Witam.
W jaki sposób dynamicznie tworzyć ramki na formie. Mam w oddzielnych modułach kody źródłowe dla poszczególnych ramek, ale jak je wstawiać na główną formę dynamicznie czyli nacisnę jeden przycisk, pokaże się ramka 1, nacisnę drugi przycisk, pokaże się ramka 2 itd???

var
  Frame: TFrame;

//------

procedure TForm1.FormCreate(Sender: TObject);
begin
  Frame := TFrame2.Create(FOrm1);
  Frame.Parent := Form1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Frame.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Frame.Free;
  Frame := TFrame2.Create(Form1);
  Frame.Parent := Form1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Frame.Free;
  Frame := TFrame3.Create(Form1);
  Frame.Parent := Form1;
end;