Befehl Bei Appstart ausführen

[Dr.Delphi]

Hallo ich möchte das mein programm bei start eine datei herunterlädt
mein code sah bisher so aus

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
   var
  Datei,Ziel:PChar;
begin
  Label1.Caption := 'Download gestartet';
  try
    Datei := 'www.test.de\beispiel.txt';
    Ziel := 'beispiel.txt';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    Label1.Caption := 'Download beendet';
  except
    showmessage('Download abgebrochen');
 end;

soweit so gut aber er lädt die runter und man sieht erst nach herunterladen die form
wie kann ich das ändern denn ich möchte einen downloadstatus einbauen.