Delphi

[BlackTerror]

Я создал 4 формы и связал их кнопкой Далее (код для нее внизу), и дело в том, что код рабочий, но, когда я кликаю Далее на первой форме (Form1), он сразу перескакивает на третью форму и пропускает вторую, а затем когда нажимаю Далее уже на третьей форме, он выдает ошибку <Project raised exception class EStackOverflow with message 'Stack overflow'>. Возможно какие то проблемы с циклом, но я понять не могу. Подскажите!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Label9: TLabel;
    Edit2: TEdit;
    Label10: TLabel;
    Edit3: TEdit;
    Label11: TLabel;
    Edit4: TEdit;
    Label12: TLabel;
    Edit5: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Label15: TLabel;
    Edit14: TEdit;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
      procedure ShowForm;
    { Private declarations }
  public
    { Public declarations }
    NextForm:Integer;
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;


{$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;
 Form.Align:=alClient;
 Form.BorderStyle:=bsNone;
 Form.Show;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
NextForm:=NextForm+1;
ShowForm;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
NextForm:=2;
ShowForm;
end;

end.

Оформляйте код по правилам.

[min@y™]

Выкинь весь этот говнокод и юзай TPageControl.