Форма - заставка - Delphi

[S_007]

Помогите решить вроде бы банальную задачу, но не нашел то что мне надо... Не могу разобраться как правильно последовательно организовать открытие и закрытие форм.
Мне нужно открыть форму - заставку с вводом пароля перед запуском приложения, только самое интересное что я не мог найти, чтоб была возможность закрыть эту форму не запуская приложение, на случай если пользователь передумал и не ввел пароль и на этой форме не будет стандартного крестика закрытия формы, а нажатие на Label.
Form1 - Заставка
Form2 - Форма Приложения
и Data_Module

[newerow1989]

1 вариант:

В файле Project.dpr:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  If <не ввел пароль> then
     Exit;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

2 вариант:

Во 2-м модуле:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
   If <не ввел пароль> then
      Exit;
   Show;
end;

end.

где <не ввел пароль> - какая-нибудь переменная типа boolean, обозначающая ввел/не ввел пароль.

не будет стандартного крестика закрытия формы

В окне Объекта Инспектора у формы есть свойство BorderIcons, подпункт biSystemMenu установить false.

[S_007]

newerow1989, Спасибо! Очень доступно..! Счас попробую!

[newerow1989]

Пожалуйста!

[S_007]

Извините за ламерство, В файле Project.dpr не видит переменную которая в первой форме как объявить?

чтоб вставить в эту строку

If <не ввел пароль> then Exit;

[newerow1989]

Вот образец:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:boolean;

implementation

{$R *.dfm}

end.

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  a:=true;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[S_007]

не получается((( не запускается вторая форма


program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  If a = true then Exit;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Код в первой форме

//Если пользователь не ввел пароль или передумал запускать приложение
procedure TForm1.Button1Click(Sender: TObject);
begin
   a:=True;
   Form1.close;
end;

//Если пользователь ввел пароль и надо закрыть первую форму и открыть вторую
procedure TForm1.Button2Click(Sender: TObject);
begin
   a:=false;
   Form1.close;
end;

[newerow1989]

Вот готовая:

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  a:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   a:=true;
   Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   a:=false;
   Form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.ShowModal;
end;

end.

2-й модуль пустой (без изменений).

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  a:=true;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  If a = true then Exit;
  Application.Run;
end.

[S_007]

newerow1989, Благодарю Сердечно! Гениально и просто оказывается! Все работает!
Можно пожалуйста еще вопрос, немного не в тему, у меня во второй форме в процедуре FormCreate происходит подключение ADO 8 таблиц, и форма (может из за этого) появляется на экран как бы клочками, можно как то победить пусть она там подключается хоть пол часа, но чтоб после всех подключений форма прорисовывалась на экран мгновенно?

[newerow1989]

Пожалуйста!

Про таблицы я не могу сказать...