Как сделать ProgressBar при запуске программы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  TDownloadThread = class(TThread)
  private
    Value: Integer; // Для прогрессбара показатель
    Count: Integer; // кол-во ссылок
  protected
    procedure Execute; override;
    procedure DownLoad;
  end;
var
  Form1: TForm1;
  Loader: TDownloadThread;
  A: Array of String; // контейнер ссылок для скачивания
implementation
 
{$R *.dfm}
 
procedure TDownloadThread.Execute;
begin
  Synchronize(DownLoad);
 
end;
 
procedure TDownloadThread.DownLoad;
var Down: TIdHTTP;
    i: Integer;
    Str: TStringList;
begin
  Str := TStringList.Create;
  Down := TIdHTTP.Create(nil);
  for i := 0 to Count-1 do
    begin
      Str.Text := Down.Get(A[i]);
      Value := i;
      Str.SaveToFile(IntToStr(i)+'.txt');
      Form1.ProgressBar1.Position := Loader.Value;
    end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Loader := TDownloadThread.Create(True);
  Loader.Count := 5;
  ProgressBar1.Max := Loader.Count-1;
  SetLength(A, Loader.Count);
  // заполняем массив ссылками на которые перйти нужно будет
  A[0] := 'http://www.google.ru/';
  A[1] := 'http://www.google.ru/';
  A[2] := 'http://www.google.ru/';
  A[3] := 'http://www.google.ru/';
  A[4] := 'http://www.google.ru/';
  Loader.FreeOnTerminate := True;
  Loader.Resume;
end;
 
end.

procedure TDownloadThread.Execute;
var Down: TIdHTTP;  i: Integer;
    Str: TStringList;
begin
  Str := TStringList.Create;
  Down := TIdHTTP.Create(nil);
  for i := 0 to Count-1 do
    begin
     Str.Text := Down.Get(A[0]);
     Value := i;
     Str.SaveToFile(IntToStr(i)+'.txt');
     Synchronize(DownLoad);
    end;
 
end;
 
procedure TDownloadThread.DownLoad;
begin
     Form1.pb1.Position := Loader.Value;
end;