Progress bar anzeige

[XXcD]

Ich zeig hier mal den Quelltext. Wenn es jemand bereit wäre mir zu sagen wie ich jetzt ne anzeige da rein bekomme wieviel Prozent fertig sind und den Balken auch, dann wäre ich sehr dankbaer. Hier ist der Quelltext:

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
var
  sLauftext, sTmp: string;
  var i: Integer;
  var p:integer;

var
  Datei,Ziel:PChar;
  var
  testo, testen: string;
  begin
  try
     p:=1;
    Datei := 'http://*-free.com/update/K*****at.exe';
    Ziel := 'C:\Dokumente und Einstellungen\All Users\Desktop\K*****t.exe';
 UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
 for p:=1 to 100 do
begin
 progressbar1.StepBy(p);
 delay(40);
end;