Помогите с заставкой

[KARUSHEV]

Подскажите, пожалуйста с заставкой. Задача такая: нужно, чтобы сначала появилась заставка, после того как она закроется, открывается форма с паролем, после правильного ввода пароля открывается следующая форма. В общем не получается, если делаю заставку, то пароль не вводится. Файлы прикрепил...
Заранее Большое Спасибо!

[Манжосов Денис :)]

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);

var pass:string; 
begin 
pass:=xortext('777'); 

if xortext(Password.Text) = pass then CanClose:=true 
else Application.Terminate; 
end;

Вот здесь убрать else Application.Terminate;
Затем исправить на это:

procedure TForm1.FormShow(Sender: TObject);
begin
  PasswordDlg.showmodal;
  PassWordDlg.Free;
end;

[KARUSHEV]

В таком случае можно вообще не вводить пароль вторая форма и без него открывается. Смотрите Form1 является заставкой, она работает 3 секунды и должна закрыться.
У меня же она вообще не появляется, сразу появляется форма с паролем, и пароль при этом не возможно ввести

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
PasswordDlg.showmodal;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
PasswordDlg.Visible:=true;
Close;
end;

end.

Вторая форма с паролем вот код:

unit Unit2;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons;

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;
    Password: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
function xortext(text:string):string;



  end;

var
  PasswordDlg: TPasswordDlg;

implementation

uses Unit3;

{$R *.dfm}

function TPasswordDlg.xortext(text:string):string; 
var key, longkey : string; 
i : integer; 
toto: char; 
begin 
key:='da'; //êëþ÷ 
for i := 0 to (length(text) div length(key)) do 
longkey := longkey + key; 
for i := 1 to length(text) do begin 
toto := chr((ord(text[i]) XOR ord(longkey[i]))); 
result := result + toto; 
end; 
end; 




procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);

var pass:string; 
begin 
pass:=xortext('777'); 

if xortext(Password.Text) = pass then
begin
CanClose:=true;
Form3.Visible:=true;
end
else Application.Terminate;
end; 
end.

Третья форма, к которой должен получить доступ пользователь.

Подскажите, что не так делаю, по отдельности заставка работает, пароль то же, а в совокупности (сначала заставка, потом форма-пароль) отказываются