Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Ruby Graphite');
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TFinishF, FinishF);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm5, Form5);
  Application.Run;

//Спочатку  зявляється Form4
//Принатискані на кнопку submit закриваю Form4 і зявляється Form5
procedure TForm4.submitClick(Sender: TObject);
begin
    Form4.Close;
    form5.Show;
end;

//Принатискані двойним клікм миші  по strngrd1 закриваю Form5 і зявляється Form1 головне вікно
procedure TForm5.strngrd1DblClick(Sender: TObject);
begin
  Form5.Close;
  Form1.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  clos:=False;
  Application.ShowMainForm := false;
end;

//При закриті Form1 головне вікно зявляється FinishF
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if clos then
    CanClose:=clos
  else
    begin
      Form1.Hide;
      Finishf.Show;
      CanClose:=clos;
    end;
end;

//При закриті FinishF повина закриватися програма
procedure TFinishF.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  clos:=True;
  Form1.Show;
end;