Кадры

[Баламут]

Здесь для 2-х кнопок, но дмаю для остальных уже продолжишь по аналогии.

procedure TForm1.Button1Click(Sender: TObject);
var
  frm: TForm;
  frmClass: TFormClass;
begin
case (Sender as TButton).Tag of
  0: frmClass := TForm2;
  1: frmClass := TForm3;
end;

if Panel1.ControlCount > 0 then
Panel1.Controls[0].Free;

frm := frmClass.Create(self);
frm.Parent := Panel1;
frm.Align := alClient;
frm.Show;
end;

[Балда]

All right понял теперь