1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

unit JobQueueMultiThread;
uses
  Classes,HttpGetThreads,UThreadStringList;

  type
    [b]TJobQueue[/b] = class
  private
    Threadlist: TList;
    FJoblist : TThreadStringList;
  public
   constructor create;
   destructor destroy;override;
   property Joblist: TThreadStringList read FJoblist write FJoblist;
   procedure StartJob;
   procedure AddThread;
   procedure ThreadResult(Content: TStringStream; ThreadID: Integer);
end; //Type
var JobQueue: TJobQueue;
implementation					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

implementation
uses JobQueueMultiThread;//Main

procedure TMyHttpThreads.Execute;
var url:string;
begin
  { Thread-Code hier einfügen }
  IdHTTP:=TIdHTTP.Create;
  ContentStream:= TStringStream.Create(toEOF);
  while ((JobQueue.Joblist.Count>0)) do
  begin;
   url:=JobQueue.Joblist.Strings[0];
   JobQueue.Joblist.Delete(0);
   IdHTTP.Get(URL,ContentStream);
   Synchronize(loadComplete);
  end;
end;					

1:
2:
3:
4:
5:
6:

unit 1;
implementation  
  uses JobQueueMultiThread;//Main <--- Verweise auf die andere Unit
..
while ((JobQueue.Joblist.Count>0)) do  //<--- JobQueue is nil
...					

1:
2:
3:
4:

unit JobQueueMultiThread;//<-- andere Unit
type....
var JobQueue: TJobQueue;// <-- ist nil oben!
implementation