Fehlermeldung beim abbrechen des Downloads abfangen!

[fiXe]

Hallo,

ich habe dieses Code hier gefunden und in mein kleines Downloadprogramm eingebaut.
Klickst du hier! (Datei downloaden mit fortschrittsanzeige)

Ja, nun wollte ich aber auch das PRogramm beenden. Hab nen Button erstellt und so eiter:

Delphi-Quellcode:

procedure TForm1.ButBeendenClick(Sender: TObject);
begin
  close;
end;

Weil beim Downloaden jedoch das Beenden nicht akzeptiert wird, dachte ich, baue ich cDownStatus.Free dort ein:

Delphi-Quellcode:

procedure TForm1.ButBeendenClick(Sender: TObject);
var 
  cDownStatus : cDownloadStatusCallback;
begin
  cDownStatus.Free;
  close;
end;

Naja, jetzt wird das Programm zwar auch beendet, jedoch mit dieser schrecklichen Fehlermeldung (siehe Anhang).
Gibt es dort eine Elegenade Alternative ?

btw: ich habe gestern mit Delphi angefangen .. also bitte Idiotensicher erklären (also, was einegfügt werden muss).

[fiXe]

Hmm .. hab e snun doch selber gefunden ...

Delphi-Quellcode:

procedure TForm1.ButBeendenClick(Sender: TObject);
begin
  UserCancel := true;
  close;
end;