составил программу ,но ненравиться механизм работы.помогите улучшить

[Василийпрог]

респект бывалым программистам !
составил программу ,но ненравиться механизм работы.помогите
улучшить
программа состоит из пяти форм ,связанных между собой,поочерёдно открывающихся форм для последовательных вычислений (инженерный расчёт ).ещё большое неудобсво -программа состоит из пяти project.
один фрагмент листинга
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Visible:=false;
Form3.Visible:=false;
Form4.Visible:=false;
Form1.Visible:=false;
Form2.Visible:=true;
Form5.Visible:=false;
end;

end.

[0nni]

for i := 1 to 5 do
  (Application.FindComponent('form' + IntToStr(i)) as TForm).Visible := false;

Вот самый простой вариант, без проверок, поэтому возможны исключения.
Поэтому подробней почитайте про FindComponent()