Здравствуте уважаемые эксперты!
Возникла проблема с заставкой на делфи.прошу вашей помощи.
Сделал две пустые формы: одна главная а вторая заставка которая появляется перед ней и держится 5 секунд
Не получяется сделать отображение на заставке процесса загрузки в компоненте progressbar(по таймеру )
вот ссылка на проект (167 кбайт) http://slil.ru/28008512
в строке Length:=100; выдает ошибку и без нее так же не компилируется(

Приложение:
//основная форма
unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation
uses unit2;

{$R *.dfm}

procedure TForm1.SHOWMODAL(Sender: TObject);
begin
LOGO.SHOWMODAL;
end;

end.
////////////////////////////////////////////
//та самая заставка
unit Unit2;

interface

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

type
TLOGO = class(TForm)
Timer1: TTimer;
StatusBar1: TStatusBar;
ProgressBar1: TProgressBar;
procedure Timer1Timer(Sender: TObject);

procedure Formcreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
LOGO: TLOGO;

implementation

{$R *.dfm}

procedure TLOGO.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+20;//таймер на 5000 и включен
If ProgressBar1.Position=100 then Timer1.Enabled := false;
close;
end;



procedure TLOGO.Formcreate(Sender: TObject);
begin
LOGO.Height:= Round(Screen.Height / 3); {высота формы}
LOGO.Width:= Round(LOGO.Height * 1.618); {ширина формы}
with ProgressBar1 do
begin
Parent := StatusBar1;
Position := 0;
//Length:=100;
Top := 2;
Left := 0;
Height := StatusBar1.Height - Top;
Width := StatusBar1.Panels[0].Width - Left;
end;
end;
end.
//////////////////////////
файл проекта
program Project1;

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

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TLOGO, LOGO);
Application.Run;
end.