Как сделать, чтобы при запуске программы сначала показывалась Form2

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;
 
end.
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses Unit1;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.DatabaseName:='c:\DemoQuery';
 with Query1 do
 begin
 SQL.Clear;
 SQL.Add('Create Table Predmet (');
 SQL.Add('Cod char (10) ,');
 SQL.Add('Nazvanie char (15),');
 SQL.Add('Prepodavatel char (15));');
 try
 ExecSql;
 Except
 on E:EDBEngineError do
 begin
 ShowMessage('Owibka sozdania tablisy BD'+#13+E.Message);
 end;
 end;
 end;
 Query1.Active:=false;
  Query1.SQL.Clear;
   Query1.SQL.Add('select * from predmet.db ');
   Query1. ExecSQL;
    Query1.Active:=true;
 
  end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.DatabaseName:='c:\DemoQuery';
 with Query1 do
 begin
 SQL.Clear;
 SQL.Add('Create Table Students (');
 SQL.Add('NomerZ char (10) ,');
 SQL.Add('Fam char (15),');
 SQL.Add('Name char (15));');
 try
 ExecSql;
 Except
 on E:EDBEngineError do
 begin
 ShowMessage('Owibka sozdania tablisy BD'+#13+E.Message);
 end;
 end;
 end;
 Query1.Active:=false;
  Query1.SQL.Clear;
   Query1.SQL.Add('select * from students.db ');
   Query1. ExecSQL;
    Query1.Active:=true;
 
  end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Query1.DatabaseName:='c:\DemoQuery';
 with Query1 do
 begin
 SQL.Clear;
 SQL.Add('Create Table Ocenki (');
 SQL.Add('Fam char (15) ,');
 SQL.Add('Nazvanie char (15),');
 SQL.Add('Ocenka char (10));');
 try
 ExecSql;
 Except
 on E:EDBEngineError do
 begin
 ShowMessage('Owibka sozdania tablisy BD'+#13+E.Message);
 end;
 end;
 end;
 Query1.Active:=false;
  Query1.SQL.Clear;
   Query1.SQL.Add('select * from ocenki.db ');
   Query1. ExecSQL;
    Query1.Active:=true;
 
  end;
end.
 
end;
 
end.

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
 
  Application.CreateForm(TForm2, Form2); // вот эти
  Application.CreateForm(TForm1, Form1); // 2 строчки, я уже поменял местами
 
  Application.Run;
end.