Ściąganie plików - dokończenie transferu

W związku z tym że zauważyłem iż często padają pytania o dokończenie
transferu ściąganego pliku - a jestem w temacie ;)
Złożyłem do kupki te fragmenty kodów które można znależć w necie
i podaje poniżej kodzik który można bardziej rozbudować o ile znajdzie się
chętny.
Nie rozpisuje się na temat jego działania ponieważ staram się przy
instrukcjach opisywać ich znaczenia.
A to nawet dlatego że jestem starym sklerotykiem i po tygodniu nie pamiętam
co z czym sie je i jak używa :)

//dziadek Prokop ;)
UNIT Unit1;
interface
uses
 Wininet,
 Windows, Messages, SysUtils, Variants, Classes, Graphics,
 Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    btnSciagnij: TButton;
    btnZatrzymaj: TButton;
    ProgressBar1: TProgressBar;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;

    PROCEDURE btnSciagnijClick(Sender: TObject);
    PROCEDURE btnZatrzymajClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

VAR
 Form1 :TForm1;
 Stop  :Boolean;
{***************************************************}
IMPLEMENTATION {$R *.dfm}

//Procedura ściąga lub "dociąga" plik z internetu...
PROCEDURE TForm1.btnSciagnijClick(Sender: TObject);
var
 adresURL,nazwaPliku            :String;
 plik                           :File;
 inOpen,inURL                   :HINTERNET;
 rozmiar,ileZnakow,rozmiarPliku :DWORD;
 dwBufLen, dwIndex, sciagnieto  :DWord;
 bufor :array[1..1024] of byte;
 buf   :Pointer;
Begin
 //ustawiamy dane...
 inOpen:= nil; inURL:= nil;
 rozmiarPliku:= 0;
 rozmiar:= 0;
 ProgressBar1.Position:= 0;
 //zmienna z adresem URL z którego ściągamy plik
 adresURL:= Edit1.Text;
 {zmienna z nazwą pliku jaka ma być po ściągnięciu
  - można wyciągnąć nazwe pliku z adresu URL}
 nazwaPliku:= Edit2.Text;

 //pobieramy rozmiar pliku jeżeli coś już ściągaliśmy...
 if FileExists(nazwaPliku) then
 begin
   AssignFile(plik, nazwaPliku);
   Reset(plik, 1);
   rozmiarPliku:= FileSize(plik); //pobieramy rozmiar pliku
   Seek(plik, FileSize(plik));    //ustawiamy skażnik na końcu pliku
 end
 else
 begin
   AssignFile(plik,nazwaPliku);
   ReWrite(plik, 1);
 end;

 Try
   //łączymy się z serwerem...
   Label1.Caption:='Łączenie...';
   Application.ProcessMessages;
   inOpen:= InternetOpen('Mozilla',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
   inURL:= InternetOpenURL(inOpen,PChar(adresURL),'Accept: */*', StrLen('Accept: */*'),0,0);
   if not (inURL <> nil) then
   begin
     ShowMessage('Nie można uzyskać połączenia');
     Stop:= True;
     InternetCloseHandle(inURL);
     InternetCloseHandle(inOpen);
     CloseFile(plik);
     Exit;
   end;

   //pobieramy całkowity rozmiar pliku znajdującego sie na serwerze...
   dwIndex:= 0;
   dwBufLen:= 1024;
   GetMem(Buf, dwBufLen);
   HttpQueryInfo(inURL, HTTP_QUERY_CONTENT_LENGTH,buf, dwBufLen,dwIndex);
   //ustawiamy progresy (paski postępu)
   rozmiar:= StrToInt(StrPas(Buf));
   Caption:= 'Rozmiar pliku do ściągnięcia: '+ IntToStr(rozmiar);
   ProgressBar1.Max:= rozmiar;
   ProgressBar1.Position:= rozmiarPliku;

   { ustawiamy wskażnik pliku znajdującego się na serwerze, czyli
   ustalamy od jakiego miejsca w pliku rozpoczynamy pobieranie }
   if rozmiarPliku > 0 then InternetSetFilePointer(inURL,rozmiarPliku,nil,0,0);

   //pobieranie pliku z serwera...
   Label1.Caption:='Ściąganie pliku...';
   while (ileZnakow <> 0) and (Stop = false) do
   begin
     InternetReadFile(inURL, @bufor, SizeOf(bufor),ileZnakow);
     InternetQueryDataAvailable(inURL,rozmiar, 0, 0);
     BlockWrite(plik, bufor,ileZnakow);
     sciagnieto:= FileSize(plik);
     Label2.Caption:='Ściągnięto '+ IntToStr(sciagnieto);
     ProgressBar1.Position:= sciagnieto;
     Application.ProcessMessages;
   end;

 except
   ShowMessage('Wystąpił błąd podczas ściągania pliku !');
   Stop:= True;
   InternetCloseHandle(inURL);
   InternetCloseHandle(inOpen);
   CloseFile(plik);
   Exit;
 end;

 Stop:= False;
 InternetCloseHandle(inURL);
 InternetCloseHandle(inOpen);
 CloseFile(plik);
 if ProgressBar1.Position = ProgressBar1.Max then
    Label1.Caption:= 'Plik został ściągnięty'
    else Label1.Caption:= 'Zatrzymane ściąganie pliku';
 Beep;
End;

//zatrzymanie pobierania...
PROCEDURE TForm1.btnZatrzymajClick(Sender: TObject);
begin
 Stop:= true;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:= 'http://www.almdev.com/prods/baseskins_compress.zip';
 Edit2.Text:= 'ściągnięty plik.zip';
end;

END.