unit Unit1;

interface

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

type
   TForm1 = class(TForm)
     Timer1: TTimer;
     ProgressBar1: TProgressBar;
     Image1: TImage;
     procedure FormCreate(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=True;//Включаем доступность таймера.
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
header:HWND; //Указываем переменную окна.
h : THandle;
begin
Sleep(10);//спим одну секунду.
header:=ProgressBar1.Position;
ProgressBar1.Position:=+1;
Sleep(10);//спим одну секунду.
header:=ProgressBar1.Position;
ProgressBar1.Position:=+50;
Sleep(10);//спим одну секунду.
header:=ProgressBar1.Position;
ProgressBar1.Position:=+90;
Sleep(10);//спим одну секунду.
header:=ProgressBar1.Position;
ProgressBar1.Position:=+100;
Timer1.Enabled:=False;
Form2.Show;
Form1.Hide;
end;

end.

unit Unit2;

interface

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

type
   TForm2 = class(TForm)
     MainMenu1: TMainMenu;
     N1: TMenuItem;
     N2: TMenuItem;
     N3: TMenuItem;
     N4: TMenuItem;
     procedure N2Click(Sender: TObject);
     procedure N4Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.N2Click(Sender: TObject);
begin
Form2.Close;
Form1.Close;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
Form3.Show;
end;

end.

unit Unit3;

interface

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

type
   TForm3 = class(TForm)
     Memo1: TMemo;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Close;
end;

end.

unit Unit1;

interface

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

type
   TForm1 = class(TForm)
     Button1: TButton;
     ProgressBar1: TProgressBar;
     Edit1: TEdit;
     Timer1: TTimer;
     procedure Button1Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='15' then Timer1.Enabled:=True
else ShowMessage('Пароль не верен!');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
header:HWND;
  h : THandle;
  begin
   Sleep(10);
   header:=ProgressBar1.Position;
   ProgressBar1.Position:=+1;
   Sleep(10);
   header:=ProgressBar1.Position;
   ProgressBar1.Position:=+20;
   Sleep(10);
   header:=ProgressBar1.Position;
   ProgressBar1.Position:=+30;
   Sleep(10);
   header:=ProgressBar1.Position;
   ProgressBar1.Position:=+50;
   Sleep(10);
   header:=ProgressBar1.Position;
   ProgressBar1.Position:=+100;
   Form2.Show;
   Timer1.Enabled:=False;
end;

end.