1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm5.Timer1Timer(Sender: TObject);
begin
 Progressbar1.Position := Progressbar1.Position +1;
 Application.ProcessMessages;
 if Progressbar1.Position = 100 then
  begin
  Form1.show;
    Timer1.Enabled := False;
    Progressbar1.Position := 0;
  end;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
 Timer1.Enabled := True;
end;