Postep sciagania pliku || Błąd

HTTPGetFile.URL := ('strona/strona/takiplik.exe');
HTTPGetFile.FileName := ('Taki plik'.exe');
HTTPGetFile.GetFile;

Jak przedstawic proces sciagania na progressbar lub innym.

procedure TForm2.ReadDate;
var
fsKart : TFileStream;
I : Integer;
ListItem : TListItem;
begin
if not FileExists('Dane.txt') then Exit;

fsKart := TFileStream.Create('Dane.txt', fmOpenRead);

for I := 0 to fsKart.Size div SizeOf(TDataRec) -1 do
begin
ListItem := ListView1.Items.Add;
fsKart.Seek(i, SizeOf(TDataReC));

{ fsKart.Read(Data, SizeOf(TDataRec)); }

ListItem.Caption := Data.Stan; 
ListItem.SubItems.Add(Data.Imie);
ListItem.SubItems.Add(Data.Nazwisko);
ListItem.SubItems.Add(Data.Miasto);
ListItem.SubItems.Add(DateToStr(Data.Date));
ListItem.SubItems.Add(Data.Wiek);

end;
fsKart.Free;
end;

procedure WriteDate;
var
fsKart : TFileStream;
i : Integer;
begin
fsKart := TFileStream.Create('Dane.txt', fmCreate);

for I := 0 to ListView1.Items.Count -1 do
begin
Data.Stan:= ListView1.Items[i].Caption;
Data.Imie := ListView1.Items.Item[i].SubItems[0];
Data.Nazwisko := ListView1.Items.Item[i].SubItems[1];
Data.Miasto := ListView1.Items.Item[i].SubItems[2];
Data.Date := StrToDateTime(ListView1.Items.Item[i].SubItems[3]);
Data.Wiek := ListView1.Items.Item[i].SubItems[4];
fsKart.Write(Data, SizeOf(TDataRec));
end;

fsKart.Free;
end;

Co jest w tym złego.
W ListView1 są kolumny
0 - Imei
1 - Nazwisko
2 - Miasto
3 - Data
4 - Wiek

<font size="12">//Chcialbym ci poradzic abys ni episal wielu postow obok siebie tylko zawarl swoje problemy w jednym poscie
poza tym chcialbym zaznaczyc obecnosc tagow i sluzacych do ladnego formatowania kodu </span>

Jest coś takiego jak OnProgress. powinno wystarczyć