1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Type
  TDownLoadJob = Class (TWorkerThreadJob)
  Private
    ... // Indie-Komponenten 
    fDownloadURL : String;
  Protected
    Procedure Execute(aThread: TWorkerThread);
  Public
    Constructor Create (aDownloadURL : String);
    Destructor Destroy; Override;
  End;

Constructor TDownloadJob.Create (aDownloadURL : String);
Begin
  fDownloadURL := aDownloadURL;
  Synchronized := False; // Wenn die VCL verwendet wird, auf True setzen
  UsesCOMObjects := False; // Wenn COM-Objekte (z.B. ADO) verwendet wird, auf True setzen
// Indie-Komponenten instantiieren
End;
  
Destructor TDownloadJob.Destroy;
Begin
// Indie-Komponenten freigeben
End;

Procedure TDownloadJob.Execute (Thread : TWorkerThread);
Begin
  fIndieComponent.Download (fDownLoadURL);
End;
...
// PendingJobs ist ein Threadpool, der Jobs im Hintergrund ausführt.
PendingJobs.Add (TDownloadJob.Create('www.delphi-forum.de/SampleDownload.zip'));
PendingJobs.Add (TDownloadJob.Create('www.another-source.com/moredownloads.zip'));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

URL := Form1.LinkList.Items.Item[0].Caption;
Dateiname := GetFileName(URL);
LinkList.Items.Item[0].SubItems.Strings[1] := 'Läuft';
Application.ProcessMessages;

lStream:=TFileStream.Create(Downloadpfad+Dateiname, fmCreate or fmShareDenyWrite);
try
idhttp1.Get(URL,lStream);
finally
lStream.Free;
end;