Кнопка Далее в прямом ее смысле

Form2(3,4,5 и т. д.).Show

Memo1.Text:='ля-ля-ля';

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2,Unit3,Unit4, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    btnNext: TButton;
    btnBack: TButton;
    procedure btnNextClick(Sender: TObject);
    procedure btnBackClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    procedure ShowForm;
    { Private declarations }
  public
    { Public declarations }
    NextForm:Integer;
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// показ очередной формы на главной странице
procedure TForm1.ShowForm;
var
  Form:TForm;
begin
 case NextForm of
  2:Form:=Form2;
  3:Form:=Form3;
  4:Form:=Form4;
   else
    begin
    Form:=nil;
    // не даем счетчику выйти за нужный диапазон
    if NextForm>4 then NextForm:=4;
    if NextForm<2 then NextForm:=2;
    end
 end;
 
if Form<>nil then
begin
 Form.Parent:=Panel1; // задаем "хозяина" для вызываемой формы.В этом случае- это Panel1
 Form.Align:=alClient;// занимаем всю площадь "хозяина"
 Form.BorderStyle:=bsNone;// прячем заголовок вызываемой формы }
 Form.Show;
end;
end;
 
//листаем вперед
procedure TForm1.btnNextClick(Sender: TObject);
begin
NextForm:=NextForm+1;
ShowForm;
end;
 
 // листаем назад
procedure TForm1.btnBackClick(Sender: TObject);
begin
NextForm:=NextForm-1;
ShowForm;
end;
 
// стартовый показ
procedure TForm1.FormActivate(Sender: TObject);
begin
NextForm:=2;
ShowForm;
end;
 
end.